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Cuando mi compel riio, Mr Micro Ltd, consigur6 un models experi- 
mental CPC464 de Amstrad para el desarrolio de programas. nos 
quedamos impresionados por sus caracteristicas v resultados. Es- 
loy compfacido de haber tenido la oporlunidad da confeccionar 
admnas del software para fa mdquina, este libro de juegos para 
los usiiarios, del que pueden aprender y disfrutar, dentro de un pro- 
grama general de desarrolio de software comercial. 

El Amstrad es un ordenador de grandes posibitidades y el "Lo- 
comotive Software Basio opera a una gran velocidad. Esto ayuda 
(i la hora de hacer programas que han de ser ajecutados a una cier- 
la velocidad. 

El Basic, mcfuso esta version r^pida del Amstrad, no esl3 con- 
sidarado como el lenguaje ideal para programar juegos. debido a 
-,ii vefocidad de operacitin relativamente baia si se compare con 
un codigo miquma. Si bien esto puede valer aplicado a algunos 
programas de accidn rapida, este libro esta escrito para demostrar 
que el Basic, bien manejado, puededar juegos diverudos, emocio- 
nantes y que requieren una mente dgif 

Todos los programas no estSn plenamente escritosen Basic, al- 
gunos contienen ruiinas an codigo m^quina. Estas ban sido inclui- 
das cuando era imprescindible para garantizar un juego da prime- 
rs calidad. Los contactos con el *duro- codigo maquina se nan tra- 
iado de la man era menos dolorosa pcsibfe. 

Siempre ma ha asombrado observar cdmo se anuncia un juego 
como «100%» en codigo maquina, especialmente cuando results, 
ser muy pobre. Algunos consideran esta caracterlstica como el 
equivalente en software a un hotel de 'Ctnco estrel!as», pero no 

lo es. 



x Pr6togo 

No es cierto qua siempre e! cddigo ma'quina supere al Basic. 
Lo que import a es el juego, y si esta; en Basic o en cddigo maquina 
es algo que no deberia importar al usuario. 

Vafa la pena comentar las opimonesde algunos respecto a fas 
juegos. Se suele decir que fas juegos son aplicacfanes inviaies de 
las posfailidades de! micro y una peVdida de tiempo para e! juga- 
dor. Conn/no a muclios que no se atreven a admitir que juegan 
con el ordenador. Posibfamente se basen en que algo que se dis- 
fruta no puede ser bueno. 

El hccho es que leclear prngramas es un buen metodo para fa- 
miliar tzar se con el ordenador y sus lenguajes. Un juego, adernas 
de proporcionar la satisfaccidn personal del trabajo terminado, 
hace que se utihcen m^s rec urges del ordenador que con muchc-s 
program as de gestidn. Esto quisre decir que pmgramar juegos es 
el mejor metodo de aprender lenguajes de programacion. 

Se juege desde que el hombre se civilizd. Genie eminenteafir- 
ma que jugar es un factor vital en ei dasarrollo de la humanidad. 
Sofa un micro as eapaz de generar, rapida y fScilmente, un gran 
nurnero de estimufas. Par lo tanto ha de ser legitrmo el uso de 
esta tec no tog ia en beneficio de nu astro tiempo de ocio. 

Despues de leer esto, espero que ya nos apoye en el tema del 
juego. Recuarde comentar las exceiencias del juego cuando tenga 
□portunidad. A fa gente que dice que jugar es una perdida de tiem- 
po, se fas puede contestar que pot el mismo motivo puede serlo 
ver |a television, leer una no vela o dar un paseo. Todos tenernos 
necesidad de relajarnos y fa mejor es que cada cual lo haga a su 
manera. Para mi, la diversion consiste en disefiar y desarrollar pro- 
gramas que otros puedan disfrutar. Espero que usted disfrute con 
estos. 



Al preparareste libro me he preocupado especialmente de que 
se incluyera una gran variedad de juegos, Tambien he dado gran 
importance a fas grdficos y presentee idn, de modo que realmente 
merezca la pen a el esfuerzo de tedearlos. 

Este libro ha sldo el resultado del esfuerzo de un trabajo en 
equips, y ha exigido gran dedicaciun por parte de todos. Me com- 
place poder manifestar mi agradecimiento a fas programadc-res de 
-ISSI-- cuya perrcia queda bien patente y a *Andy> que tiene aqul 
tambien buenos ajemplos de su trabajo. Los dema's miembros cla- 
ve del equipo fueron Janet y mi esposa Val que mecanografiaron 
una y otra vei, hasta que el trabajo quedd complete-. 
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ne y a Richard Miles de -Granada Publishing- por encargar el Fi- 
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hasta sus manos. 
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Introduction 



Cads juego de este irabajo ha sido e special me nte disehado para 
este libro. Esto ha dado coma resullado un conjunto de programas 
que comprenden una gran veriedad de lipos. En elios se incorpo- 
ran diversas tecnicas muy utiles y varios connparien las mismas su- 
brullnas. En algunos cases se han disenado rut mas de control, de 
tal modo que utilizando el metodo explicado en el capiiulo de su- 
brutinas. se pueden ahorrar un mont6n de Ifneas si tec fear el 
prog ram a. 

Cada listado se ha hecho con una anchura de 40 caracteres, 
para proeurar reducrr e! numero de errores de entrada. Esto signi- 
fies que si por ejemplo se utiliza el Modo 1 para iniroducir Jos pro- 
gramas, a cada Imea de la pagina Is corresponde una Ifnea en la 
pantalfa. Esta caracieristica es una muestra del esfuarzo que se 
ha dasarraUado para aaegurar el 6sdto dal usuarto coa Codas y cada 
uno de los programas. 

Despues de un exahustiva proceso de pmeba, los listados se 
han sat ado de prog ram as que verdaderamente funcionaban. To- 
dos han sido raproducidos dkectamsnte desde el papel de orda- 
nador. Esto signifies que. normalmente, los errores se deberan a 
un fallo a I teclear el programa par parte del lector 



He tecleado muchos programas de libros y revistas, y se, por 
experiencia. que en ciertos mementos es dificil creer que uno lo 
ha hecho mal, Por favor, lea detenidamente las siguientes instruc- 
ciones sobre cdmo programar, le ayudaran a evitar los clasicos 
errores a I teclear un programa. Siga el consejo y disfrutara mas 
del hobby de programar le resultara mas entretenido y menos 
frustrante, 

A pesar de que estos cqnsejos puedan parecer obvios, cada uno 



2 Just/OS sunsuaanities par a AMSTRAQ 

de alios ahorra un montdn de tiempo y de problemas. Si esta su- 
ficientemente preparado y relajada. cometera pocos errores. 



Su primer prog ram a 

1. Coloque su equipo sobre una mesa o tablero y asegurese 
de que esta correctamente sentado y con la espalda recta Procu 
resa una buena luz y coloque el libro de manera que se pueda leer 

con comodidad 

2. Antes de empezar una larga sesion de tecleo compruebe si 
todo esta correctamente Gonectado. 

3. Haga acopio de un buen numero de cintas virgenes. 

4. Prepare las cintas para grabar haciendo que avaneen hasta 
que se vea la parte marrdn. 

5. Para asegurerse de que todo ve a funcionar bien consiga 
una cinta de larga duracion (C 90) para trabajar. A continuacidn 
compruebe si carga y graba con este pequeno programa: 

10 REM TEST 

20 PRINT "TEST O.K." 

30 GOTO 10 



u otro similar, 

Grabe "TEST" con "SAVE" y luego carguelo con "LOAD" y eje- 
cutelo con "RUN", Si funciona hien no rebobine y en case contra- 
rio compruebe todo e intantelo de nuevo hasta que si funcione. 
Entoncesya podrd usar la cinta para almacenar su programa, bien 
cuando lo haya terminado, o a medio carnino para proseguir mas 
tarda. 

Le recomiendo que use la opcidn de "Speedwrite" y grabe el 
programa dos veces, sera major qua utilizar "Slow speed" y ade- 
m3s ha resultado bien durante el desarrolto de los prog ram as del 
libra. 

6. Cuando grabe parte de un programa {version) dele un tftulo 
que le ayude mas tarde (VI V2.„). Quizi prefiera utilizer la fecha 
y hora de grabacidn {8,15-14/10/85} 

Cuando grabe una version, recuerde ascribir en la cinta el tf- 
tulo y el numero del cantador de la cinta donde ha sido almace- 
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nado. Esto le permihra cargar el programa cuando desee, conti- 
nual tecleandolo o bien empezar a depurar errores. 

7. Grabe siempre el programa antes de ejecutarfo. El mundo 
de los micros estd lleno de amigos cntusiastas que perdieron Mo- 
ras de irabajo por ejecutar el programa antes de grabarlo. {Si va 
grabando lasdilerentes versiones. sdlo podra perder la ultima par- 
te en el peor de los casos.) 

Las ra zones de la -<perdida> puaden ser vanas. Por ejemplo: le- 
clear mal palabras que el mterpreie ejecuta como una nueva ins- 
iruccldn. "NEW", entrar en un bucle infinite del que 13 umca sa- 
hda sea desenchufar el a pa rate... Los prpgramas que contsenen 
mstrucciones en eddigo maquina, comandos "POKE", o llamadas 
del Si sterna "CALL" suelen perderse con mas faciiidad debido a un 
incorrecio tecleo de los argumentos de estos comandos. 

8. Cuando un programa se ha terminado y funciona, es con- 
venient^ consen/ar una copia en una cinta de 90 minutos iunto 
con otros pragramas. La copia original es megor guardarla en una 
cinta de corta duracion (C 15), correspondiendo ma's a la de} pro- 
grama. Grabando uno par cada cara es mucho mas facil y rapido 
cargarlo en el ordenador cuando hace falta, Recuerde poner el ti- 
tulo del programa en la etiqueta. 

Este sisiema tie dos cintas le permitrra evitar volver a tecfeer 
si se pierde una, se dana. o se descubre en ella algun defecio 

9. Muchos usuarios no cuidan debidamente el almacenamien- 
to de las cintas y luego se preguntan por que se estropean. Si quie- 
re conservar lo que ha grabado siga las siguientes regies: 

* Rotule claramente cajas y cintas. 

• Guardelas en cajas en un estante. 

* Mantengalas lejos del calor. 

• Mantengalas alejadas de campos magneticos. tales como TV, 
ordenadores, altavoces, motores, ventiiadores y sobre todo ta- 
lefonos, todo ello puede darlar o borrar los programa^. 

• No las deje en la graba dors del ordenador cuando no se nece- 
siten y tenga la grabadora en STOP cuando no se precise lo 
contrario. 

* Recuerde qurtar las lenguetas de plastico que hay en la parte 
posterior de la cinta para evitar que se vuelva a grabar encima. 
En el caso de que necesitara grabar en ella de nuevo, bastara 
con poner cinta adhesive tapando los agujeros de las lenguetas. 

10 Nunca pase mAs tie ires boras teclaando. Tomese un des- 
canso, pasee, duchese, juegue a atgo.,. 



4 Juecjos sGnstttiantttes para AMSfftAD 

Otros problemas 

PARfS 

EN LA 

LA PRIMAVERA 

Lea est as Imeas en voz alta. Se sorprenderd a I ver odmo la mayo- 
ria de Ja gente fee *Parfs en la prima^era- Posiblemente incluso 
usted. La patabra *ja* esu3 repetida, pero como nadie se la espera 
y encima fa frase es familiar, nuesira mente «no ve» el seguncfo 

Alga parecido nos ocurre a I tec) ear list ados Muchas veces se 
teclea Jo que se espera que contenga el hstado y no su verdadero 
contenido, Asi, se teclean muchas »oes= por ceros, o S en ve* de S 

Un inslante de desconcentraaon puede llevarnos a mezcler o 
saltarnos Imeas Por ejemplo: 

10 PRINT "Esto es el principle" 
20 PRINT "Esto es lo siguiente" 

"Se convierte en: 

1 PRINT "Esto es lo siguiente" 

Mire a Ja pantalla para comprobar que fas letras con -Shift* 
(meyusculas ..} se han inlroducido correclamente. No haeerlo pro- 
voca errores del tipo: 

10 PRINT 2DONDE ESTAN LAS C0MJLLASI2 

Bajo ningun concepto debe intentar varrar un prog ra ma a) in- 
troducirio, Si los numeros son 10. 20, 30,,-- mtrodiizcalos tal cual. 
Es major hacer los cambios cuando se sabe que el programs fun 
ciona Esto se aplica a todo. No se salte tineas porque ere a que no 
sirven en el program a De oiro mo do, el control del programs sb 
puede ir a una linea que se ha cambiado o borrado y estropear el 
programa, 

Las sentencias "REM" son camentarios y se lian induido para 
ayudarle a entender el programs. Se deben iniroducir tal cual. Solo 
cuando se ha hecho un programa que funciona y se graba quiza 
sena bueno hacer una copra sin Jos "REM". La ahorrara una pe- 
quena parte de mertioria al ofdenador pero no tendra mas efecto 
que ese. En los program as de aste libra no hay probiema conomi- 
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in los "REM" ya que se ha temdo cuidado de no mandar nunca el 
conirol del programa a una tinea con un "REM", pero tenga cui- 
dodo con progrBmas tornados de otras fuentes porque hay auto res 
que opinan qua estd bien mandar el control a una linea con un 
"REM", 

Los sspacios son da vital importance en una linea de progra- 
ma. Hay que lener cuidado de coniartos y meter exactamente los 
que existan. Le ayudard cot oca r una cartulina o papel amba v a ba- 
jo para contrastar cuantos blancos hay en su linea. 

En los listados hemos establecido una (ongitud de linea de 40 
caracteres, como el Modo 1 de la pantalla del ordenador Si usa 
el Modo 1 a! tedear. le ayudara a comparar las Itneas con las del 
libro segun las vaya introduciendo; por ejemplo si una linea de hs- 
tado acaba con cuatro espacios, entonces. su Ifnea en pantalla de- 
bera acabar igual. Tenga especial cuidado en no introducir como 
dos Imeas, una sola. Esto puede ocurrirle en el case de senten- 
cias que ocupen mas de una linea y utilicen comandos con n.« de 
linea. 

No introduzca la segunda parte como otra linea. El programa 
no tendra nada que ver. 

Puede ser util tapar con una regla la linea siguiente a la que 
se esta" escribiendo Esto reducira el riesgo. 

Si sigue estos consejos no debe tener mayores problemas. De 
cualquier modo siempre *se colardn- algunos errores Si su pro- 
grama no funciona correcta mente, en el ultimo capitulo liene in- 
dicaciones interesantes de como depurarlo. 

Esto es suficiente de momento. Empecemos a practicar con al- 
gunas subrutinas utiles en el siguiente capitulo. 



Tecnicas utilizadas 
en los programas 



Punteros de color (colores l6gicos] 

£1 sisiema de colocacibn de colores en el Amstrad puede ayuder 
a crear la sensacidn de movimiento rapido Este sistema opera di- 
bujando cada elemenio mcuil de un dibujo por separado con pun- 
teros de color diferentes. Luego Fos punteros van cambrando con- 
trolados por el programs. 

Conforms sb va eambiando cflda color, el efecto es instants- 
neo y da ia impresion de movimiento. 



TActticas MiltrtidtiS en fas program/is 7 
Disytintiva exdustva (XOR) 

Esia es oira tecnica muy empteada a lo largo de este libro. La uti- 
Ii*aci6n de XOR permtte superponer mformacidn sobre una ima- 
gon que ya esta en pantalle. Al ejecutar un segundo XOR todo que- 
da como al principio. 

En los Ustados puede encontrar ejemplos En especial ffjese en 
el -Duelo a\ Ajedre**- 

Puede encontrar de utilidad usar los lisiados como fuente de 
mformacion para resoLver sus prcblemas de programacbn Bus- 
que el porque de ciertas subruiines y cdmo f uncionan. Una vez que 
un programa funcrona correctamente y se ha grabado en una cm- 
la no viene mal experimenter. Cambie colores o parametros y *ea 
que ocurre. Esto le ayudard a aprender programacidn y e inoorpo- 
rar bus conocsmientos a otros prog ram as. 

Este es uno de los aspectos mas gratificantes de tener un or- 
denador propio. 



Muchos juegos de este libro utiiizan sste sistema, <EI loco del 
laberinto- emplea con gran exito esta tecnica. El resultado es un 
laberinto continuamente cambiante Esta velocidad no se podrfa 
haber conseguido sin un programa lleno de subrutrnas en cddigo 
maquina. 






La cinta de demostraddn del Amstrad tiene tambien buenos 
ejemplos, 

Esta tecnica opera mejor en el Mode 0, ya que dispone de 1 6 
colores. Si es preciso mayor resoJucion y un movimiento mas ajus* 
tado, hey que utilizer el Modo 1 con 4 colores. 

Recuerde que so debe reservar un color pare el fondo y para 
cade mensajB que conste permanentemente en panialla. 

Ffjsse bien en la rutina de los dados para ver haste que punto 
puede rendir este sistema. 






Subrutinas 




Atajos hacia ei <}xito 

Todos los listados de este libro ocupan alredsdcr de 200 K. Por 
alio, ha side necesafio mimmi*ar ta lonoitud de Iqs programas, 

Esto se ha conseguido mediante e! empieo consiante da su- 
bfutinas. y mas concreiamente ires; 

1 Puntuaci6n maxims Psia subrutrna tofna la puntuacion ob- 
tenida por el jugador y compara con fas que coniiene en una ma- 
tdr en memoria, Si su puntuacibn es mayor qua la puntuacidn re- 
cord, entonces se fe da la posibilidad de introducir su apodo, inl- 
dales.,, Esta rutina se deba tecfear tal cual y a contmuacidn se 
debera encadenar con 'MERGE'- en los programas en qua sea 
precisa. 

Se necesrtarSn algunos cambios para ciertos programas. Tq- 
clee las lineas qua varfan en cada programa. 

Front drt Area iris; 26100 GOSUB 60000: GOTO 1000 
Eitoco tteUaberinto: 33040 GOSUB 60000; GOTO 1000 
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Color f as: 195 SC-PO-10 

Pick man: 200 GOSUB 60000: GOTO 1000 

La carta mas aft a y Skippy no necestlan cambio alguno, Todo 
Be reduce a cargarlas con MERGE en dichos programas, 

"PUNTUACION MAXIMA" 

60000 MODE 1 : BORDER 0:PEN 2:CLS:re=0 
60060 PRINT; PRINT TAB<6J: 

"PUNTUACI0NE5 MAXIM AS DE"igant* 
60070 PRINT: PRINT 
60080 POR #»1 TO 5 

60090 PRINT: PRINT TAB M > ; 1I "| 

na* (a) ;TAB<30> ;scD(a> 
60100 NEXT a 

60110 FOR a-5 TO 1 STEP -1 
60120 IF sc>3ca(a.> AND sc<=co(a-l> 

THEN re- a 
60130 NEXT a 

601 4G IF re=0 THEN 60430 
60 ISO FOR a=4 TO re STEP -li 

na* {a+l>=rta$ <a) : sea (a+1 ) -scd (a> : 
NEXT a 
60160 na« (re>^" " : sco (re> =sc 
60170 CLS: PRINT: PRINT TAB (6): 

■PUNTUACIONES MAX I MAS DE ";ga(Tlt 
6O1S0 PRINT:PRINT 
60190 FOR 3=1 TO 5 

60200 PRINT: PRINT TAB<4>ia;" ": 

na* (a> ;TAB<30) ; sco<a> 
60210 NEXT a. 
60220 PRINT: PRINT 

Pong a su nombre.oor -favor" 
■ nf' ABCDEFGH I JKLMNOPORSTUVW X Y Z . 1 " 
60230 PRINT: PRINT TAB '5> ; nS: u-5 
60240 PRINTi PRINT " 3 ...Fin," 

60250 LOCATE ;;. 19: PRINT"-" 
60260 LOCATE 10. 22: PRINT na$ (rel 
60270 GOSUB 29000 
602BO IF le==l AND n >5 THEN 

LOCATE );,19:FRINT " ":x-H-l 
60290 IF ri=l AND x<?3 THEN 

LOCATE h. 19: PR INT " "t.'.^i + l 
60300 IP fi = l AND NID4 (nf , (s ( -4) , 1 ) =" 3 " 
THEN 60340 
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60310 IF fi=l THEN 

naS(re)^na? <re) +MID* (n* t <:<-4> , 1 ) 
60320 IF LEN<na*tren=15 THEN 60340 
60330 GOTO 60250 
60340 MODE IjCLE 
60350 PRlNTiPRINT ^AB^6); 

"PUNTUACIONES NAXINAS DE " j qam* 
60360 PR INT: PR INT 
60370 FOR a=l TO 5 
60380 PRINT: PRINT TAB<4) ; a; ■" . . . . » ; na* <a> 

:TAE<30) : sco(a) 
60390 NEXT a 
60400 PRINT; PRINT 

Pulse FIRE para jugar otra vez " 
60405 a*^"" 

60410 GOSUB 27000 j IF fi=i THEN 60420 
60415 GOTO 60410 
60420 RETURN 

60430 IF sc'scoU) THEN 60340 
60440 i-e=l!GOT0 60150 



2. Entrada de caracteres. Esta es una subrutina en c6digo md- 
quina que permits rapidez en la utiJizacidn de -joysticks* o fledas. 

Esta subrutina se introduce en memoria mediante una seriede 
sentencias "POKE" para evitar problemas que, de otra forma, po- 
drfan oturrir. 



Tecleela y grdbela en la cinta. Cuando la nacesite, caiguela 
con "MERGE" en su programa. Cada Jistado indica a\ final Jas su- 
bruimas que precisa. 



'ENTRADA DE CARACTERES" 



28960 ': ->»»INKEY> »»»»». >>>» 

29000 le^Oiri *=0iud=0i do=Os -Fi=0: e>:=0:a=0 

29010 CALL addr+l;a-PEEK<addr> 

29020 IF a=8 OR a=242 THEN le=l 

29030 IF a=9 OR a^243 THEN riml 

29040 IF a=ll OR a=240 THEN up^l 

29050 IF a=10 OR a=24i THEN do-1 

29060 IF a=B8 OR a=224 THEN -fi=I 

29070 IF a-13 THEN q=1 
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290S0 IF a=32 THEN WX*% 

29090 RETURN 

294S0 »»»»»»POKE INKEY3>.»>»»» 

29500 c=INT(addr/254> : b=addr-256*e 

295 10 RESTORE 29530 

27520 FDR n=addr TO addr+13 

29530 READ a: IF a^979 THEN a=b 

29540 IF a=99S THEN a-e 

27550 POKE n,a 

29560 NEXT n 

29570 RETURN 

29SS0 DATA 0,62.0,50*997,793,205.27 

29570 DATA 167,209.50,777,978,201 



3. Comprobacidn de caracteres. Esta es otra rutina en c6digo 
mdqurna Coloca el vafor del codigo ASCII de un detsrmmado ca- 
racter en la variable CH. Se usa despues de situar el cursor con 
un LOCATE x,y* Se le llama can GOSUB 30000. 

Permite al programa detectar el -cheque* de dos objetos en 
pantalla Q permite comprobar, por ejemplo, si la pelota del -Fron- 
t6n arco iris* ha rebotado en la pared de ladrillo. Una vez grabada 
se carga con "MERGE" cuando sea necesaria. 



'COMPROBACION DE CARACTERES' 



29980 ' >>>r>- >>>char =heck>>>>>>>>>>> 

30000 CALL loca+1 

30010 ch=PEEK(loca> 

30020 RETURN 

304B0 »»»»»»ooke ch»ck»>>»»»> 

30500 c=lNT tloca/256>:b=laca-256*c 

30510 RESTORE 305B0 

30520 FOR n=loca TO loca+1 3 

30530 READ a: IF a=779 THEN a=b 

30540 IF a=998 THEN a=c 

30550 POKE rs.a 

30560 NEXT n 

30570 RETURN 

305B0 DATA 0,62,244.50,777,998,205,96 

30590 DATA 187.205,50,799,998.201 



1 2 Juegos sensaaonafes para AMS TRAD 

Las subrutinas se usan ampliamente art oiras pdginas del U- 
bro. Aparecen listadas en los diferentes programas en que se pue- 
den emplear. 

Damas/A/edrez, La sub rutin a "tabFero" y otras pueden ser car- 
gadas con "MERGE". 

Juegos de dados. La subrutina de lanzamiento de dados y los 
otros tres juegos forma n un solo programa con su menu para se- 
leccionar opciones, 

Juegos de cartas. La subrutina " genera r baraja" puede cargar- 
se con "MERGE" en cada juego. 



C6mo utiltzar "MERGE" 

SF quiere cargar subrutinas en un determinado programa; 

1 . Grabs el prog ram a con ten (do en el ordenador. 

2. B usque en Fa cmta Fa subrutina a cargar. 

3; Teclea MERGE"" y pulss "Enter". Luegc en el panel del 
cassette pulse PLAY v siga las tndfcaciones. 

4. Cuando haya (erminado, grabe el programa completo antes 
de ejecuiarla 

5. El prog ram a ya debe estar Fisto, 

En ocasiones puede preferir cargar la subrutina tal cual v lue- 
go introducir las llneas que desea cambiar. 

Una vez haya grabado Fas subrutinas en la crnta, debe probar- 
las en un programa que las utilice. Un buen programa para co- 
menzar es « Fronton arco iris- en J a seed tin de juegos cidsicos. 



Marie Celeste 




A venture en el mar 

En esta aventura, que vamos a vFvir en el papal, nos encontramos 
atracados junta al legendario «8uque Fantasma». 

iCual sard el secreto del Marie Celeste? ^Ddnde estd la tripu- 
lacidn? Dando ordanes e! ordenador resolvera" esie misterio mari- 
ne. Los datos del programa se nan mezclado cuid3dosamente en 
el listado del mismo para no aguarla Fa fiesta. Con esta operacidn 
se espera conseguir que no se acierten Fas soluciones de la sopa 
de letras por la forma y orden en que se tedeeron. 

En un juego de aventuras, genera Imente se propone Norte, Sur, 
Esie y Oeste para moverse, sin embargo, en este caso, por va tar - 
se de un baroo, usaremos proa, popa, babor y estribor. Por si al- 
guien no lo sabe, estos termmos equivalen a la parte delantera, 
trasera. i*quierda y derecha del barco (siempra mirando hacia 
delartta). 

Una buen a ideB puede ser dibujar un mapa conforme sa vaya 
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moviendo. El mapa !e ayudard a saber por dbnde vaoa identif icar 
*onas del barcc por fas que no ha pasado. 

Las insiruccfones de dos palabras, tales como «Coger cubo» se 
aceptan. Las direcciones se pueden ebreviar a; PR, PQ. BA, ES. 

En los juegos de aventuras suete ser neceserio teclear la pa- 
iabra -INVENT ARiO- para saber en cada momento qu£ es lo que 
uno ifeva consign. En este case no es necesario, ya que eJ inven- 
ts rio esta slempre an pa noil a. 

Uno de Jos aspectos ma's entretenidos, aunque a veces sea Irus- 
trame, de este juego, es probar a inuoducir diferentes verbos y ver 
si sb produce algiin efecto. Los verbos como obtener, coger, bajar, 
alzar, encaramarse y abrir, son frecuantes en estos juegos. Prue- 
be por ejemplo con "Examinar gato", en el mamento preciso, a ver 
qu6 pasa, 

Una vez resuelto el enigma, invite a ulros a jugar, merece la 
pena ver odmo tos demes cometen los rmsmos errores y como qui- 
zA alcanzan el exito igual que usted. 



1 '««««narte Celeste>>>>; 

2 REM 

500 GOTO 29000 

1000 RESTORE 1200 

1010 FOR n=l TO 6 

1020 FOR m=2 TO 40 

1030 READ Ai LOCATE m.n 

1040 PRINT CHR*<a) : 

1050 NEXT m 

1060 NEXT n 

1100 RETURN 

1200 DATA 158,154,158,154.156,72.32,72, 

32,32,32.32,32.32.32,32.32,32,32,32,150, 

154, 156,32,32,72, 156,32,32,32,32,32,32, 1 

tfc? to ?n ^r^i ^^i -j** 

1 - -4 — "^- ■¥ Wmtf w^l i - ■_-. i w^*i 

1210 DATA 149,32,149,32,149,32,32,32,32 

,32, 32, 32, 32, 227, 32. 32, 32, 32, 32, 32. 14?, 3 
2, 149, 32. 32, 32, 149, 32, 32,32. 32, 32, 32, 151 

Irj ^ n- *tFi™i -r-^ t*-f^ 

1220 DATA 149.32, 149,32*149,32, 150, 154, 
156.32, 158, 154,156, 153,32, 150, 154,156.32 
,32. 149,32,32,150,154, 156, 149,150,154. 15 
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6. 150, 154, 156. 149,32,150, 154. 156,32 
1230 DATA 149,32,149,32,149,32,32.32.14 
9,32, 149,32.32,149,32, 151. 154, 153,32.32, 

149.32.32. 151. 154. 153.149. 151. 154. 153. 14 
9,^2,153,149.32, 151. 154.153,32 

1240 DATA 149,32,149,32,149,32,150,154, 
157.32, 149,32,32,149,32, 149,32,32,32,32, 

149.32.72. 149.32.32. 149. 149.32.32. 147.15 
4, 156, 149,32.149.32,32,32 

1250 DATA 155,32.155,32,155,32,147,154, 

155.32,155,32,32, 155,32,147,154. 153,32,3 

2, 147. 154, 153, 147, 154, 153, 155, 147, 154, 15 

3, 147. 154, 153, 147, 153. 147,154, 153 

1500 RETURN 

19980 ' >>>»>»>pantall **:«<««««« 

20000 INK 0,3s INK 1,20s INK 2,0: INK 3,24 

20010 MODE 1 

20020 BORDER Os PAPER 2: PEN 3: CLS 

20030 WINDOW *1, 1,30,8*16 

20040 WINDOW #2, 1 , 30. 17. 25 

20050 WINDOW #3,31.40.8.25 

20060 PAPER #1,0: PEN 4 1 , 1 1 CLS * 1 

20070 PAPER #2. 2: PEN #2, 3: CLS #2 

20050 PAPER 113, 3: PEN #3.0: CLS tt3 

20100 RETURN 

20980 '<<< <<<«inici si izaci on >>>>>>>>>> 

21000 DIN d<10,7> 

21010 DIM of (ill 

21020 DIM mU0,4) 

21030 DIM o(ll> 

21100 RESTORE 21200 

21110 FOR rv*l TO 10 

21120 READ d £n, 1> ,d <n,2> ,dtn,3) , d Cn,4) 

21125 READ d <n, 55 , d <n, 6> , d in, 7> 

21130 READ m<n, 1 > ,m<n,2) ,rn(n,3) ,m(n,4) 

21 140 NEXT n 

21150 FOR n-1 TO 11 

?1160 READ c*(nS,o(n> 

21170 NEXT n 

21180 RETURN 

21200 DATA 1.3,10,11,20,0,0 

21205 DATA 0,0,0,0 

21210 DATA 12,36,23,0,0,0,0 

21215 DATA 1,1,0,0 

21220 DATA 13,16,1,29,4,30,20 
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21225 
21230 
21235 
21240 
212*5 
21250 
21255 
21260 
21265 
21270 

2 1 2 BO 

212S5 

21290 

21295 

2 1 300 

21310 

21320 

21330 

21340 

21350 

21360 

21370 

21380 

21390 

21400 

21990 

22000 

22010 

22020 



22030 
22035 

22040 

22050 

22060 
22070 
22080 
229B0 



DATA 1,0,1,0 

DATA 3,13,14,23,0,0,0 

DATA 0,1,1,0 

DATA 1,13,33,30,3,0,0 

DATA 0,1,0.0 

DATA 1,E,9. U,20,0,O 

DATA 0,0.0,0 

DATA 2,30,20,13,15,22.16 

DATA 1,0,1,1 

DATA 5 . 30 , 20 . , ,0.0 

DATA 0,0. 1,0 

DATA 1,6,34,29,5,0,0 

DATA 1,0,0,1 

DATA 33,3.27,1,17,0,0 

DATA 0,0, 1,0 

DATA CUCHILL0.6 

DATA LDNA, 1 

DATA AGUA EM CUBIERTA,2 

DATA CUERDA.6 

DATA CARTEL, 9 

DATA CUED, 4 

DATA LLAUE.Q 

DATA GAT0,9 

DATA TRAP0.5 

DATA BOTAE DE AGUA, 5 

DATA GANCHOB,0 

>««««« ■--; : 'entrada>»v »>>:- 

m*= M ": PRINT tf2:PRlNT H2, ">"j 

a*=lNKEV$: cit^UPPEF * < a* ) 

IF (aitK'-A" OR a£> ,J Z"> AND a$:>" •» 

AND a*OCHR«U3> AND a*OCHR*(127> 

THEN GOTO 22010 

SOUND 1,150,2.15 

IF a*=CHRS(127> AND m$-"" THEN 

GOTO 22010 
IF a*=CHR*fi27) THEN 
m*=LEFT*Cm*,LEN(m*>-l) : 
PRINT «2.CHRS<8);» ";CHR4{8>;: 
GOTO 22010 
IF aS=CHR«<13> THEN 

PRINT #2,CHR*<13>?RETURN 
fn*=fiif +af 
PRINT *2,a*j 
GOTO 22010 

'<««««inventario»»»»»» 



iriOO CLE #3 

01 PRINT «3 . " I NVENTAR 10"; 

20 PRINT #3,' 1 ■- — " 

'30 PRINT «3: PRINT H3 
FOR n=l TO 11 

IF ntn)-13 THEN PRINT #3.o*(n> 
NEXT n 
RETURN 

*«<<<<<<<<<<<spl it >»>>»>»»> 
v%-" " t n*^"" 
FOR n^l TO LEN<m4> 
IF MID*(m*,n. 1)=" " THEN 

GOTO 24060 
NEXT n 

RETURN 

v*=LEFT*(m*,n-l) 

N$=R I GHT* ( m* , LEN < ro* > -n ) 

RETURN 

*«<<<<<<<<<<<comandos>>»>»>» 

GOSUB 22000 



"40 
"SO 
23060 
>70 
239B0 
24000 
24010 
24020 

24030 
24040 
24050 

24060 
24070 
240B0 
24980 
23000 
25010 
25020 
25030 
25040 
25050 
25060 
25080 

25090 

2S100 
25120 

25130 

25140 
25150 

25160 
25170 

25 ISO 

25185 

25187 



GOSUB 24000 
C*=LEFT$ tv*,2) 
IF C#^"BA ,r THEN 

Cifc^ES" 

C*="PR" 

C3="'P0" 

C#="EN" 
GOSUB 35000 
IF C*="EX" OR 
THEN GOSUB 
IF C*="AB" 
IF C*="SU" 
IF Ct = "flA" 



IF 

IF 
IF 
IF 



THEN 
THEN 
THEN 
OR C* 



GOSUB 

GOSUB 
GOSUB 
GOSUB 

I F " 



C*-"MI" 
36000 
THEN GOSUB 
THEN GOSUB 
OR CS="A5" 



GOSUB 40000 
IF C*= ,h LO" THEN GOSUB 
IF C*="FU" OR CS-"BE" 
THEN GOSUB 41000 
C*=LEFTS<V4.3) 
IF CS^-'FRE" OR 
GOSUB 42000 
IF C*="MOV" 
GOSUB 4300O 
IF C^'COR" 
IF CS="COG 11 



30000 
3 1 000 
32000 
33000 
THEN 

OR C4="IN" 

37000 
39000 
THEN 

40500 

OR C*= ,, EM" 



C*="LIM" THEN 



OR C*="AL2 r ' THEN 



THEN 

THEN 



GOSUB 
GOSUB 



3S0O0 
34000 
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<< rami enzo>>,; >>>*•»>>> 



23190 IF V**»FIN" THEN G0SU8 44000 

25200 IF v *=" " THEN GOTO 25220 

25210 PRINT #2.^0 sntiendo. . . ■• 

25220 GOSUB 28000 : GOSUB 23000 

25230 GOTO 25000 

25980 '<«■ 

26000 GOSUB 27000 

26010 GOSUB 20000 

260 IS GOSUB 1000 

26020 GOSUB 2100O 

26030 BO SUE: 27000 

26040 dd=£ 

26100 RETURN 

26<?S0 ««<«<<c:6denas»»»»>N>»» 

27000 DIN w*<36) 

27010 RESTORE 27060 

27020 FOR n^l TO 36 

27030 READ w5(n) 

27040 NEXT n 

27050 RETURN 

27060 DATA ESTOY. POPA. PROA, BABOR. ESTRIBO 

R, ARRIBA, ABA JO. EN UN, REQUEND. GRAN 

27070 DATA "BOTE, AL LADO DE EL ".HAY EL 

VIENTO,AULLA.ULULA ' L 

27080 DATA SUENA CDNO RlSA. , FUERA, DENTPD 

,ES, NARIA CELESTE 

27090 DATA UN. Y, ABU I., Y YO,NE DESLIZD A 

TRAVES,CERRADO£.ABIERTO£ T HACIA DE E* J 
VED , ALNACENES 

27100 DATA BOOUETE. EL . AGUA EN CUBIERTA D 

IABL0,TRIANGUL0 DE LAS BERMUDAS, ATLANTIS 

27980 '<«««««d&scribir»»»»»s> 
29000 CLS #1 

28005 IF pa-2 AND o(10><M3 THEN 

PRINT #2."Te cfesli^as hacia la siq 

uients": PRINT #2," seC cicn de cutiisrta '" 
:po^3: SOUND 2.300,10,15 

2S007 IF po=l AND o(2>=0 THEN GOTO 45000 

28010 FOR n=l TO 7 

28020 PRINT tti , w* <d (po. n) ) i " "j 

29030 NEXT n 

2B040 PRINT #1 

2B050 PRINT #1 

28060 PRINT #i," Putedo ver -" 
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88080 

I 
2E< 

100 
299B0 
29000 
29010 

29980 

•00 

30010 

,015 

30020 
30030 



30040 

30050 

000 

1 1 010 

31015 

31020 
31030 



31040 
31050 

32000 
32010 
32015 

32020 
32030 



32040 
32050 
33000 

33010 



FOR n=l TO 11 

IF 0tn)=po THEN FRINT #l.o*(n>i«V 

NEXT n 

RETURN 

* ' <<<<<<<<<cpmienzo juego>»>»> 

GOSUB 26000 

GOSUB 29000 

GOTO 25000 

* *■- 

IF m(pD,4)O0 THEN GOTO 30020 

PRINT #2, "No puedes ir par «ahi.": 

RETURN 

IF flifpo,4) = l THEN pa=po-5: RETURN 

a=m(oo»4> :a=a~li IF a 5a 1 = 13 THEN 

PRINT #2/'Usas "so*(a)i 

PRINT «2."v vas hacia bahor." 

ELSE GOTO 30015 

FOR n=l TO 3000: NEXT n 

DD=po-5: RETURN 

v £_IIStlt 

IF m(pQ,2)O0 THEN GOTO 31020 

PRINT *2,"Nc puedes ir par ahi.": 

RETURN 

IF m<po,2)=l THEN po=Dn+5: RETURN 

a-m(po,2i sa=a-l: IF a(a>=*13 THEN 

PRINT #2,"Usas ":o*<a>: 

PRINT tt2,"v vas hacia estribor." 

ELSE GOTO 31015 

FDR n = l TO 3000s NEXT n 

do=pd+5: RETURN 

IF m<ponlK>0 THEN GOTO 32020 
PRINT #2, "No puedes ir aar ahi . " : 

RETURN 
IF ni<po 4 l) = l THEN po=po+i i RETURN 
a=m<pc.l>:a=a-i*IF ca**»*13 THEN 
PRINT #2,"Usas "ioSU): 
PRINT #2,"v vas hacia nraa." 
ELSE GOTO 32015 
FOR n=l TO 3000: NEXT n 
po=po+ 1 : RETURN 

V$cr"'' 1 " 

IF m(po,3><>0 THEN GOTO 33020 
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33015 PRINT *2.»no puedea ir oar ahi.": 

RETURN 
33020 IF m(pD,3)=l THEN DO=po-l ; RETURN 
33030 a=m(po,3) :a=a-liTP o<a>=13 THEN 
PRINT #2, "Lfsas ";o$(a>: 
PRINT #2,"y vas haeia pooa." 
ELBE GDTQ 33015 
33040 FOR n=l TO 3000; NEXT n 
3.1,050 po-po-I a RETURN 
34000 v* = ,, '~" 
34010 FDR n^l TO 10 
34020 IF nt-o*(n) THEN GOTO 34060 
34030 NEXT n 

34040 PRINT #2. "No seas tonto ' " 
34050 RETURN 

34060 IF n=4 THEN PRINT *2, "Est a at ad a d 
emasiado fuerte para mi ! " : RETURN 
34070 o(n>=13 

34080 PRINT #2, "Cages el/la ";oS<n> 
34090 RETURN 
35000 v4=" A " 

35010 IF n#<>"ALMACEN" AND 
N*< > " ALMACENES " THEN 
PRINT #2. "No ouedes ir ahi...": 
RETURN 
35020 IF mU0.4)=0 THEN 

PRINT *2."£sta csrrado !": RETURN 
35030 pd=5: RETURN 
36000 v*-"-^" 
36010 FOR N=l TO 11 

36020 IF n*=o*<n> THEN GOTO 36060 
36030 NEXT n 

36040 PRINT #2, "No veo esn aqui . « 
36050 RETURN 
36060 IF n=l THEN PRINT *2, "Es afilado ! 

36070 IF n=2 THEN 

PRINT #2. "Es verde ■ "' 
36080 IF n=:3 THEN 

PRINT #2 4 "Es humeda v salada '" 
36090 IF n-4 THEN RRINT #2, 

"Esta atada -fuertemente ' " 
36100 IF n=5 THEN PRINT 1*2. "Dice -"a 

RRINT #2, 

"'No hay necesidad de ir debajo": 
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PRINT H2,"de las rubier tas en est.e 
jLiago. ' " 
36110 IF n-6 AND oC7)=0 THEN 

PRINT tt2. "Hacs ruido !";d(7)=oo 
3il20 IF n = £> AND o(7)<>0 THEN 
PRINT #2, ,k Esta vacio ! " 
3fcl30 IF n-7 THEN 

PRINT #2, "Dice ? ALMACEN>" 
36140 IF n^S THEN PRINT tt2, 

"Se sscapa con una rata nmerta.": 
o(S)-0 
36150 IF n=9 THEN 

PRINT #2,"E=ta empapado !" 
36160 IF n=lO THEN PRINT *2, "ftp est an ' " 
6170 IF N«ll THEN PRINT *2, 

"Farecen =sr oara una cuerda ! " 
J61S0 RETURN 
000 v*="^" 
37010 IF poOlO THEN 

PRINT #2, "No puedo. . ."i RETURN 
37020 IF a(7)<>13 THEN 

PRINT *2."No tengo Have '"s RETURN 

37030 m(pD,4)^la 

PRINT #2, "El .a 1 mac en esta abierto. " 



37040 d<10.3> -26: RETURN 
33000 v4="^":IF 0(1)013 THEN 

PRINT t*2,"Con que ?": RETURN 
38010 IF n*=o*<4> THEN 60T0 3S040 
56020 PRINT tt2."5adico ', " 
39030 RETURN 

38040 PRINT tf2,"Cortas la cuerda y la en 
ges. " 

38050 o(4>=13 
38060 RETURN 
39000 v**" A "slF n*Oo*<4> THEN v4-"BI J ' : 

RETURN 
39010 IF q(4X>DO AND 0(4)013 THEN 

PRINT #2,"Donde esta la escalera"" 

: RETURN 
39020 FRINT #2. "Subes por la escal era de 

cuerda. " 
39030 IF po-6 THEN po=7: o <4> =7: RETURN 
39040 IF pa -7 THEN po=6s o (4) =6? RETURN 
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39050 

39060 

40000 

ti" 

40010 

4OO20 

40030 

40040 

40050 

40060 

40070 

40500 

40510 



IF po=l THEN po=*2co<4)=2:RETURN 

RETURN 

PRINT #2,"Un albatros vuela hacia 

PRINT #2,"y te ataca por " 

PRINT #2,"ser destructivn. *' 
PRINT #2, ■■ E^tas muerto "■ 
PGR n-I TO 5000 

NEXT n 

SOUND 1,350,10,15 

GOTO 44000 

PRINT #2: PRINT #2, "LAS SAL I DAS SON 



40520 
40530 
405 40 
40550 
40560 



40570 
405S0 
41000 
41010 
4 1 05O 
42000 
42010 

42020 

i erifca, 

42030 

esta 

42040 



42050 
43000 
43010 

43020 
43030 



IF MfFO, 1)00 THEN 

PRINT tt2,"PRDA " ; 

IF M(P0.3)<>0 THEN 

PRINT #2. "POP A "j 

IF tt<P0,2K>0 THEN 

PRINT tt2. "E5TEIB0R f ; 

IF M<F0,4)O0 THEN 

PRINT tt2. "BABOR. " 

IF m (pa, 1)^0 AND mtpo s 2)=0 AND 

mCpe, 3>=0 AND m(po,4)°Ci THEN 

PRINT +t2, "NIN&UNA. " 

PRINT tt2 

RETURN 

PRINT «2. " Ahora no,marinero ' " 
RETURN 

IF o(6)<>13 OR d(9>013 THEN 

PRINT #2, "Con que, 1 oca. . . " c RETURN 

IF P002 THEN PRINT #2. "Aqui na.id 

" : RETURN 

o<3>=0iPRlNT #2, "Bien hecho! Ahara 

limpio! , ";m(2„3>^5 

d(2, l>=l:d(2,2>=2:d(2,3)=20; 

d52.4)=32:d(2,5)=2l:dt2,6) = llj 
d(2„7)=0 

otll>=2:RETURN 

FOR n=l TO 10 

IF n*=o$<n) THEN GOTO 43060 

NEXT n 
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40 PRINT t*2, "Mover que ? ! 7 " 
■i n50 RETURN 

i 60 PRINT tt2,"La mueves t el" 
H M70 PRINT #2,"viento se 1q lleva ! " 
i r"J0O o*n)=0 
i 090 RETURN 
14000 CLB tt3:CLS #2 

10 PRINT #2,"0tra jugada 7" 
44020 SOBUB 22000 
14030 IF'fnJ = "SI" THEN RUN 

| ■ 40 PRINT #2, "De tadas maneras estas j 
liyando ' " 

50 FOR n=l TO 2500 
M060 NEXT n 
m , . :o RUN 
45000 CLS #1 
13010 PRINT #1,"S0RPRESA !": 

PRINT #1, "Estanios escandidos en "; 
w*.<21}f- H "sw^ai!;" "jwS(20) 

45020 PRINT »l,"Greiancs que NUNCA" 
45030 PRINT #1, "resell veri as la aventura 
i ii 

45030 PRINT #1, Vesolveras la aventura J 



45040 GOTO 44000 



Por favor, profesor 




Un rata pgra cua/qurara 

Este programs no as exactamente lo qua parece. Uno puede con- 
siderate capaz de enconrrar su secreto al tectearlo, pero usted se- 
guira cansiderando el juego coma un feto cuando Id juegue. 

La idea es que el ^profesor. de la pantalla ehge un tema y us- 
ted ha de dar ejemplos que se ajusten a el, Por tamo, si sb trata 
de *Peliculas*, podra introducir Por favor, profesor es SUPER- 
MAM una peJ/cula? " y el profesor le dira "&T o "no". Una vez haya 
decidido cudl es la respuesta, podra introduce otro ejernplo, como 
"Guerra de las gaJaxias", y probar suerte de nuevo. El juego con- 
linuara hasia obiener tres respuestas afirmativas en una linaa. 
Para entonces usted habra 1 dado con el por que del if o ej no, y 
desde Juego que puede hacer tramp as, pero asf su victoria so Jo fo 
sera a media s. 

Cuando mas adelante ya sea un experto en el menejo del pro- 
grama puede mtentar cambisr las reglas o aftadir nuevos temas, 
y entonces si que se estard enfrentando con un reto. 
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Invite a un amigo a lister al programs, tal vez aquel se sor- 
iim«ikI,i .11 in: la auBencia da dates, qua UBtod mtemb puetfs fiter, 
poro lambien puede usted ofrecerle el siguiente test de cre- 
dit)! I idad: 

■El programa utilize un avanzado sistema de ernpaquetar ca- 
racteres basado en las caracterfsticas matemaiicas de las pa- 
labras, de ahf que una cuidadosa selecdon de par^metros 
permita manejar soi uc i one scone reta s mediante unas subru- 
unas a pa ram erne me imprecisas*. 

Por supuesto usted sabra, por haber tecleado el programa que 
ufirifica las entradas. diferenctar ^por qua es una respuesta valida 
si sema "Pajaros": flamenco, guacamayo, oca? 



1 



i >>>>>>par +avor,profesor >'>>>>> 



500 SYMBOL 240,128,64,32.24,6,15,112,128 



1000 

1050 

1100 

1150 

1160 

L9980 

20000 

20010 

20020 

20030 

20040 

20050 

20055 

20060 

20070 

20080 

20090 

20100 

2011O 

20120 

20130 

20140 

20150 

20160 

20170 



GOSUE 40500 

go=0 

GQSUB 20000 

GOSUB 22000 

GOTO 24000 

'<-;-';«««pantalla»»> >>>>>»» 

MODE 

PAPER 03 FEN 1: BORDER 6:CLS 

WINDOW #1, 13, 19,2,9 

WINDOW #2- 13, !<?, 11, 14 

WINDOW 1*3, 13.19,16.22 

WINDOW #4,2, 11, 14,23 

WINDOW #5,2, 11,21,22 

RESTORE 20000 

FOR n=0 TO IS 

READ a; INK n.a 

NEXT n 

PAPER #1,3: FEN 

#2, 2: PEN 

#3, 8: PEN 

#4,9: PEN 

#5, 9: PEN 



33. 
#4. 



PAPER 

PAPER 

PAPER 

PAPER 

LOCATE 6, 12: PRINT 

PLOT 156, 208: DRAW 

DRAW 24,230 

DRAW 24, 350: DRAW 40, 

DRAW 140,372 



ttl,4:CLS 
#2,3:CLS 

1:CLS 

4:CLS 

4:CLS 

CHR*<240) 

40,208: 



#1 
W2 
#3 
#4 
*5 
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20180 
20190 



20200 

20210 

20220 

20230 

20240 
20250 

20260 

20270 
202S0 

20290 
20300 
20310 

2032O 
20330 

20340 



20350 

20360 

20370 

20380 

203 90 

20400 

204 1 

20420 

20430 

20440 

20450 

20460 

20470 

20474 

20475 

2047S 

20480 

204S5 

20*190 



DRAW 156,330: DRAW 156.225 
PLOT 35.350, 13: DRAW 35.2 C 0- 
PLOT 65, 350; DRAW 65,230 
PLOT 10^,350: DRAW 77,350- 
DRAW 77, 230: DRAW 107.230 
PLOT 150,350,14: DRAW 120,350- 
DRAW 120,290; DRAW 150,290 
DRAW 150, 230: DRAW t2Q,236| 
PLOT 39. 230: DRAW 61.230 
PLOT 39, 290: DRAW 61.290: 
PLOT 77, 290: DRAW 107,290 
PLOT 107,350, 15: DRAW 107,230 
PLDT 135,348: DRAW 135.255: 
PLOT 135, 240: DRAW 135,232 
PLOT 35, 232: DRAW 35, 2SS- 
PLOT 39, 348: DRAW 63,232 
PLOT 135.290, 13 

PEN 9: LOCATE 1,23: PRINT CHR*<241> 
PEN 1 

LOCATE #1,1,3:FRIN" ttl,"DIHE 
LOCATE #2,2.1: PR INT #2, -TOTAL'' 
LOCATE #3, 2, 2: PRINT tt3, "JUEGQS" 
LOCATE #3, 3, 4: PRINT #3, go 
LOCATE #4, 1,2: 
PRINT #4, "POP FAVOR. MAESTRO"- 
PRINT #4,"ES..," 
PLOT 290,210 

DRAW 275, 250: DRAW 285,260 
DRAW 2^C\ 310: DRAW 255,320 
DRAW 260, 340: DRAW 230,335 
DRAW 220. 320; DRAW 220.*310 
DRAW 230, 305: DRAW 220,300 

DRAW 21 5 .280: DRAW 220,29^ 

DRAW 216, 275: DRAW 230.270 

DRAW 216, 265: DRAW 220*26© 

DRAW 216, 256: DRAW 216,250 

DRAW 220. 246; DRAW 260,248 

PLOT 240, 246: DRAW 230,210 

TAB *t7:M0VE 220,312 

PRINT #7,CHRS(240) : 

MOVE 250.305 

PRINT #7."7"::TAG0FF 

PLOT 225, 308: DRAW 220,300 

60SUB 21500 

RETURN 
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20500 

.•<<', 10 
J0980 
JO 990 
UOOO 

:ioio 

1 1 020 

:ioto 

liOBO 
!1200 

U480 
11490 
! 1 500 
J1510 
fl520 
:i530 

[1700 
: 1 980 

,. 

010 

22020 

22030 

. ■ >40 

2050 

060 



DATA 6.24.2,18,1,0,15,16 
DATA 4.21,9, 17, 7, 6,6,6 
REM 

• :<<<««<<si »»»»»»» 

INK 13,24: INK 14,24: INK 15.6 

FOR n-500 TO 1O0 STEP -200 

SOUND 2, n, 50. 12 

NEXT fi 

m n=win+l 

RETURN 

REM 

'*<<<«««<«N0»»»» >>»»» 

INK 13,24; INK 14.6: INK 15,24 

FOR n=200 TO 600 STEP 200 

SOUND 2, n, 50, 12,0,0,1 

NEXT n 

wi n=0 

RETURN 

'<<««<FRINCIPID JUEGO»»»»> 

win=0: go=go+l 

s=INT(RND<l) *20)+l 

LOCATE #1,1, 5: PRINT #l,s*(5> 

LOCATE #2.3. 3: PRINT #2, tr 

a=t (s,l>:b=t (=.2 J :c=t <«-. 3) 

DEF FN ok=A5C CLEFT* U£, 1>> 

IF a=2 THEN 

DEF FN ok=ASC (RIGHT* (at,l) ) 



22070 IF a=3 THEN 

DEF FN Dk=ASC(MlD*<a$,b H 1) > 
82080 IF a=4 THEN DEF FN oV:=LEN(a*> 
22090 IF a=5 THEN DEF FN ok^sp+b 
100 IF ==2 THEN 
DEF FN ok=ASC<LEFT* (RIGHT* Ca*,23 ,!)> 
22250 RETURN 
22980 ■ «<«««< <ENTRADA»>»»»»» 

00 a*-' ":sp=0 
23010 CLS #5: PRINT #5, a* 

020 w*=INKEY*:w*=UPPER*(w*J 
23025 IF w*=" " THEN sp=sp+l:EDTD 23060 
23030 IF u*=CHR*(13> THEN GOTO 23130 
23040 IF w#-CHR*i(127> AND LEN(af)>0 THEN 

af-LEPT$Ca*,LEN(a*)-l) : GOTO 23070 
23050 IF w$<"A" OR w*>"2" THEN 
GOTO 23020 



Pot fyvtir, prtrf&jw 29 



28 Juttg&s sorfsactarwtes pam AMSTRAD 






23060 
23070 
53130 
23140 
23150 
23160 
23230 
239E0 
24000 
24005 
24010 

24020 
24030 

24250 
24990 
25000 
25010 

25020 
25030 

251O0 

25110 
25120 
29130 
39980 
40000 



40010 

40020 

40050 
40060 
40070 
40060 
40090 
40500 
40510 
40520 
40530 
40540 
40550 



at=a*+w£ 

SOUND 2,200, 10. 12:G0T0 23010 

a=LEN(a*> 

IP a<l THEN GOTO 23000 

SOUND 1,400,50,9; SOUND 1.200,20,9 

re-FN ok 

RETURN 



40560 FOR n=l TO 20 

40570 READ Hn,l),t^Z>,t(n^ 

,B0 NEXT n 
40600 RETURN 



i 1 ?* 



^ s J ■■■ 



:b u cle»>»>>: 



GO SUB 23000 
IF a£="aUlT" THEN RUN 
IF rs-c THEN GOSUB 21000 
ELSE G05UB 21500 
LOCATE #2. 3, 3s PRINT «2,win 
IF win=3 THEN GOTO 25000 
GOTO 24000 

'^<<<«<<«<«ganar »;■>»»»>. 
MODE 1 

LOCATE 12,3; 

PtflNT "FELICITACICNES ! " 
LOCATE II,4;FRJNT STRING* < 18, 45) 
LOCATE 9, 10( 

PRINT "Resolvio el problem* ! " 
LOCATE 8, 23; PRINT 
"Pulse 'S* para jugar otra vez" 
aS=INKEY£ e a*^UFPER* ia*> 
IF a*="S r ' THEN GOTO 1100 
GOTO 251 10 

*<<<<<<<<<<temas^ >>?>>>>>»»»» 
DATA perro, actor, e^trel la, 
prog tv, pel icula, obra teatro, 
carjcion 

DATA diicro. color , f 1 or, arbol , gems, 
1 ibro, deport e, -fiera, pa j are, si 1 1(3 
DATA 
DATA 

DATA J. i, S3, 5.0. 0,5, 5, 6, 4,1, 9 
DATA 4, 1.4,2, 1. @0,4,1.3,2,1,*S 
DATA 3,2,4, 3, 3, £7, 3, 4,83,3,3,65 
DATA 2,1,82,3,2,65.3.2,65.4,1^6 
RESTORE 40000 
DIM 5SC20) 
FOR n=l TO 20 
READ s*(n> 
NEXT n 
DIN tt2Q>3> 



pez, nombre. coche 
2,1,78,1,2,82,3,2,79,5,1,2 



3 
Yo acuso 




Una fist a de sospechosos 

Se irata de un test de dedueci6n que desafiarS a todos (os inves- 
tigadores en cterne. 

Usted es el inspector Watkins del C,LD. {Computer Investiga- 
tions Department) y esta llevando a cabo un curso de enuenamien- 
to intensive. Con e"l se ve a medir su valor v resistencia. El curso 
tambien probara su inteligencia y capacidad para utili^ar un orde- 
narior en la detection de criminals. Ya que no podemos hacer un 
test de valor y resistencia en este libra, nos conformaremos con 
probar su capacidad deductiva. 

El ordenador as capaz de generar mites da permutaciones a 
patlir da un conjunto de datos. En un segundo seleccicnard on cri- 
minal con sus csracterfsticas principals, asi como el testimonio 
de un testigo que determine quien es culpable Usted puede pre- 
guntar hasta seis cnnjuntos de ceracteristicas y para elio solo tie- 
ne que pulsar el niimero correspondiente (lado irquierdo de la pan- 
tallaj. En la pantalla apareceran esas caracteristicas junta con la 
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daclaracion do los lentigos clave. Esto deberla ser suficiente para 
ideniificar al criminal si ha elegido las caracteristicas ccrrectas. 

Debe introducir el niimero del sospechoso etegido como crimi- 
nal y el ordenador juzgara si ha estado acertade. 

Puede que este programa lenga un valor educative, pero fun- 
da mental mente se ha disenado con el fin da que fuese diferente 
tie otros y divertido. 



' ««« ««vo acuso>>> »»»»»> 

REM 

■30SUB 22000 
GOSUB 20000 
EOSUB 21000 
FOR cj-1 TO 6 
GOSUB 23000 
NEXT g 

CLS #2: PRINT #2," Ahora debe 
el numero del sospechoso Que us 



1 

H 

«* 

1000 
1200 
1500 
1600 
1610 
1620 
1630 

poner 
ted cree que cometio elcrimen. n 
1640 PRINT #2: 

PRINT #2* "El testiga dijo 
1650 RESTORE 1700 
1660 FOR n-1 TO 10 
1670 READ a* 

16B0 IF w(l>=n DR w<2)=n OR 
w<4>-n THEN PRINT #2, "El 
af:" " ;s*<s,n> 
1690 NEXT n 

1700 DATA era, era. era, tenia pslQ»tenia 
pel o, 1 lebava, 1 levaba ^apatos, teni a ojos. 
tenia nariz , 1 1 evaba 
1710 RESTORE 1720 
1720 FDR n=l TO 12 
1730 READ a.b:SOUND 2,a,b,l5 
1740 NEXT n 

1744 DATA 100. 25, 200, 25, 300, 25* 400, 25 
1746 DATA 200,25,300.25,400,25,500,25 

1749 DATA 300,25,400.25,500,25,600,25 

1750 a*=lN^EV*:IF **< ,, 1" DR a*V4" 
THEN GOTO 1750 

1760 cr-VALCa*> 

1770 SOUND 2, £00, 50, 15: 



que 



w(3)=n DR 
criminal " 
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17B0 
1790 
2000 

ector 1 



SOUND 2,400.50,15: 
SOUND 2,200,50. 15 

CLS #2 

IF cr= 5 THEN GOTO 3000 
PRINT #2, "Es ueted un negado Mm 
No \ Le vov a d eg radar 



agents Peres" 
2010 PRINT #2: PRINT tt2 
2020 PRINT *2."Era el s 05pech Q SO nLtrcero 

"!Si"t" 
2050 GOTO 3050 

3000 PRINT #2,"Feli C itacione S , 

r Perez \ " 

3010 PRINT #2:PRINT t*2. 

ectaniente el criminal, a 

istaa dadas. " 

3050 LOCATE 6, 25: PRINT " Pul sa 

r tecla oara jugar otra ves " 



Inspecto 



DedLtjQ rorr 
oartjr de las p 



cualouie 



3060 

3070 

3080 

3090 

1=980 

20000 

200 1 

20020 

20O30 

20040 

20050 

20060 

20070 



a$=lNKEY*:a*=LIPPER$<a*} | 
IF a* = <>" THEN GOTO 3060 
IF aS^S" THEN GOTO 1200 
SOUND 2, 100.50, 15 
GOTO 1200 



*<<<<<<<<<<<pantal la >>>>>?>»>>» 

INK 0,0s INK 1,20s INK 2, 6: INK 3,^6 

BORDER 0: PAPER 0:PEN 1 : MODE 1 

WINDOW »1,10,4[.\:, 12 

WINDOW #2,1,40,15,24 

PAPER #1,0: PEN *1,1:CLS ttl 

PAPER #2,0: PEN #2, 3: CLS #2 

PEN 2sno=l 

FOR n=12 TO 36 STEP 8 

200B0 LOCATE n.uPRlNT no 

20090 no=riD+l 

20100 NEXT n 

20110 RESTORE 20100 

20120 FOR n=:3 TO 12 

20130 LOCATE l,n 

20140 READ aS: PRINT a* 

20150 NEXT n 

20160 DATA O-BEXO, 1-ASFECTO, 2-ALTURA 

3-PEL0,4-C0LOR P, 5-ROPA, 6-CALZADO, 
7-QJ0S,S-NARIZ,9-OTROS 

20170 PRINT #2,»Eli_ j a su pregunta (0-91 '■ 

20500 RETURN 



20990 f <<<«««<*et up>>>»>»»»>» 

21000 RANDOMIZE TIME 
21010 s-INT(RNDU)*4) + l 
21020 FOR n-1 TO 4 
21022 w<n>=0 

21024 checl:=0 

21025 a=INT<RNDU5 *10>+1 
21030 FOP 0=1 TO 4 

21032 IF w<q>=a THEN check=l 

21034 NEXT q 

21035 IF oheck^l THEN GOTO 21024 
21037 w(n)=a 

21040 NEXT n 

21050 FOR n=l TO 10 

21060 FOR a=l TO 4 

21070 a=INT(RND<l>*4>+l 

21080 st (q,n)=lS(n,aJ 

21090 NEXT q 

21100 NEXT n 

21105 n=wUJiGOSUB 21 150: rt=w(2) i 

GOSUB 21150 
21110 n=w (33 sGDSUB 21 150: n=»w<4> j 

GOSUB 21250 
21120 RETURN 

21150 RANDOMIZE TIME: a-INT <RND U ) *4) +1 
21160 st(5,n)^l$(n.a) 
21170 t=3+2: IF t>4 THEN t=t-4 
211B0 s*<s.n>=l* tn,a> 
21190 IF sOl THEN b = a-l ELSE fa=4 
21200 t^t-2:IF t< 1 THEN t=t+4 
21210 s$<t,n)=lS(n,b) 
21220 t»t-2BlF t<l THEN t=t+4 
21230 s*<t.n)=l4 (n,b) 
21240 RETURN 

21250 RANDOMIZE TIME: a~INT (RND < 1 > *4) +1 
21260 3*(s.n)=l*(n,a3 
21270 IF sOl THEN t-s-1 ELSE t=4 
21280 si(t,n)=lt<n,a) 
21290 IF a<>4 THEN b=a+l ELSE b^l 
21300 t=t-l:IF t=0 THEN t=4 
21310 s*<t,n>=l*(n,b> 
21320 t=t-l:IF t=0 THEN t=4 
21330 -3*<t.n)=19tn,b) 
21340 RETURN 
21500 DATA HOMBRE, CHICO, MUJER.CHICA 
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21510 

21520 

21530 

21540 

21550 

21560 

21570 

215B0 

215*?0 

21600 

219S0 

22OQ0 

22010 

22020 

22050 

22060 

22070 

22080 

22090 

22100 

22110 

22150 

229S0 

23000 

23010 

23020 
23030 
23035 
23040 
23050 
23060 
23070 
23200 



DATA GORDO* DELGAD0,FRAGIL,C0J0 
DATA ALTO. BAJD, GRANDE, ENANO 
DATA NORMAL, CORTO, RI ZADO. LARGO 
DATA CASTANQ.NEGRO,RUSIO,ROJO 
DATA TRAJE,GORRG,CAPA, JERSEY 
DATA BOTINES, BOTAS, ZAF'ArOE, IUECOS 
DATA AZULES , GR ISES , VERDE5, NEGRGS 
DATA PEQUENA. GRANDE, ROTA. RECTA 
DA TA TATUA JE , PECAS , D AGA . P I STOl A 
RETURN 

**:«««inicializacion»»» , > ^ > 

DIM s*<4, 10) 

DIM w (4) 

DIM 1*<10,4> 

RANDOMIZE TIME 

RESTORE 21500 

FOR n-i JO 10 

FOR m-1 TO 4 

READ lS<n,m> 

NEXT m 

NEXT n 

RETURN 

:<<<<< 'i<creguntas>>>>>>>>>>»> 
a«*I NKEY* : aS^UPFER* < a t ) 
IF af< "O" OR a*> ,,[ ?" THEN 

GOTO 23000 
qw=OAL(a«) 
qw=qw+l 

SOUND 2, 600-qvi*50,25, 15 
FOR pe=l TO 4 
LOCATE ttl,pe*8-7 t aw 
PRINT #1.5*(pe,qw) ; 
NEXT pe 
RETURN 



4 
Star Trek 




Un programs que sigue y sigue 

Exist en vers i ones de prcgramas cfe este tipo para casi tados los n\ 
denadores, lo cual dice mucho en favor de su atraciivu como jua- 
go y lo convierte en Lin aulentico clasico. 

Ahora usted pueda transformer su Amstrad an una nave de la 
Federation Galactica, provisto de -scanners-, -fasores-, etc. Su mi- 
sidn sera hmpiar la zona de maiignos wKlmgnns* sin agotar toda 
la energfa de que dispone y sin ser desmtegrado, 

Este prog ram a maneja un campo e stela r en perspective y los 
encuentros con e( enornigrj y aterrizajes en bases est e la re a se rea- 
lize n en "liernpo real.. 

A continuation ffjese en un extracto del mega-manual (origi- 
nal do 32544 paginas) litulado «Carno hacerse Capitin de una Nave 
Galdctica en 4.000 sencillas lecciones' . 

1. Conserve tg calms. Recuerde que corno mucho perdere: su 
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1 



vtda, equipos valorados en 20.000 millones de do la res galdcticos 
y las vidas humanas de todo ef Universo conocido. 

2, jMire por ddnde vaf Utilice Ids ojcs de la nave para desve- 
lar la naturaleza del Universe. Pulsando "L" tiene acceso al Scan- 
ner de Larga distancia. Este le mostrard la posicidn de la nave y 
del enemigo Los Khngc-ns se representan en este Scanner por me- 
dio de un circulo, sun halo de Marie, dies de la guerra. 

Las bases este la res se representan con un circulo encima de 
una cruz. sfmbolo de Venus, la drosa del amor. 

Aquellos sectores que estan ncupados simultdneamente por el 
enemigo y por las bases estelares, se simbolizan con un cuadrado 
(el cuadrado es un antiguo simbolo que represent.,, Jun cua- 
drado I}. 

3 Aver qu$ ss puede bacer. Pulsando "C" se activa el Scan- 
ner de Corto alcance, que nos indica en pantalla la caniidad de 
enemigos y bases que hay en el presente sector. 

4. Vigih su energfe Aterrizando en una base se puede repos- 
tar. Para ella pulse "E" v utilice Jas f leches hasia que fa naveocu- 
pe el centro de la pantella. Cuando heya aterhzado recibiri 20 uni- 
dades adicionales de energfa a sumar al banco de energfa de la 
nave y 20 unidades mas para escudos y fasores. La capacidad mi- 
nima es de 95 unidades, SJ no se consigue aterriiar puede des- 
truirse la base, as J es que, jcuidadol 

5. AirSpelos capita' n. Un capita n galactico debe cumplir su de- 
ber: aliminar la diabbiica amenasa de las malvados Klingons. 

Si hay Klingons por ahl, pulsando la tecla "B" suena una mu- 
sica belica y se puede empezar el aiaque. En primer lugar situe ai 
enemigo en el centro de la pantalla empleando el cursor o el -joys- 
tick* (puntero) y, una ve* preparado, pulse la led* "COPY", o el 
botbn de disparo del joystick lanzando rayos para destruir el 
ob^etivo. 

Si no se consigue hacer bianco enseguida el factor sorpresa se 
perderd y te devolverSn el fuego terminando per destruir su barre- 
ra de energfa, asi que no se rmda hasta que no quede ni uno. Des- 
pues puede trse a otro sector a ganar ma's batallas. 

6. Muevase con cutdado Existe la posibilidad de desplazarse 
a cualquier sector pulsando "M" seguido por un numero del 1 al 



6. Este as igual al factor de desplazamienio o a la distancia que 
desee recorrer 

A con t in uac ion debe mtroducir la direccion de movimiento (nu- 
mero entre 1 y 8J. Cada numero corresponde a una direccidn en 
la brujula. El 1 en la parte superior central de la pantalla y las de- 
mtis corresporidientes a un angulo de 360°/8 en el sentido de las 
agujasde un reloj. Nota: los relojes se han mantenido en la fecha 
de partida para ayudar a ios capitanes a dirigir sus naves ga- 
Uctlcaa. 

7. La penult ima frontara. Al princtpio de la misidn puede se- 
leccionar el nivel de dificultad. Habr3 10 enemigos en el mis fa- 
cil, 20 en el intermedio v 30 en el mas diffcii. 

Segun se va completando cada fase, el Estado Mayor de los 
Klingons, que recibe partes de situacidn, se encarga de mandar 
nuevos refuarios, cada vez envlan 10 mSs a combabr. El numero 
m.-iximo de enemigos que hay que destruir es de 200 ^Esta 1 prepa- 
rado Capitdn?, entonces... (que em piece el programal 



1 

2 

500 

60O 

610 

620 

650 

1000 

1010 

1020 

1030 

2000 

2010 

2020 

2030 

2040 

2050 

2080 

2090 

3000 

3010 

4000 
4010 
4020 



'«<<<«<<<<< star trek >»>»»» 

REM 

SYMBOL 240.7, 9B, 242, 254, 242,98,7,0 

DIM 3<15,2) 

MEMORY 39995 

addr=39999:G0SUB 29500 

PRINT CHR$<23) :CHRf (1); 

GQSUB 21000 

GOSUB 22000 

GDSUB 20000 

GOTO 4000 

a$= INKEY*; a*=UPPER* i a*> 

IF at-"L" THEN GOSUB 23000 

IF ai^'C" THEN GOSUB 24000 

IF a*="M" THEN GOSUB 25000 

IF a*-"E" THEN GOSUB 26000 

IF a#="B" THEN GOSUB 27000 

FOR n^l TQ 30: NEXT n 

gqsub uooo 

IF &%="" THEN GOTO 2000 
IF muerte-I DR ener<l THEN 

GDTD 7000 
LOCATE 7, 21: PRINT ener 
LOCATE 7, 23: PRINT escu 
LOCATE 7, 25: PRINT fasD 
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4030 
4040 
4050 
4060 
5000 
6980 
7000 
70 10 
7015 
7020 
7025 
7030 
7032 
7035 
703S 
7040 
7045 
7050 
7055 
7060 
7065 
7070 
7075 
7080 
7085 
7090 
7095 
7100 
7110 

7120 

7130 

7140 

9980 

1 0000 

10010 

10020 

10030 

10040 

10045 
10050 
10060 
10070 



La" 
Nave especial" 
Enterprise " 
ha side destruida' 

por los Klinaons ' 



LOCATE 17.21: PRINT sec 
LOCATE 17,23: PRINT en em 

LOCATE 17, 25: PRINT s<3ec,2> 

IF enem^alien THEN GOTO 10000 

GOTO 2000 

3 <«< i««muerte>>>>:>»>»y» 

PAPER 1:PEN 3:CLS 

PRINT " Mala Suerte I 

PRINT 

PRINT " 

PRINT 

PRINT " 

PRINT 

PRINT " 

PRINT 

PRINT " 

PRINT 

PRINT " 

PRINT 

PRINT "nero el Almirante " 

PRINT 

PRINT "Azucar ha decidido" 

PRINT 

PRINT " darte una nueva " 

PRINT 

PRINT " od ar tun i dad, para" 

PRINT 

PRINT "tomarte la vengansa'" 

LOCATE 3.23: 

PRINT "Una tec la para jugar" 

a DINKEY* 

IF a*- 11 " THEN GOTO 7120 

GOTO 1000 

*<<<<<<<<<<«<siguiente»>»»»> 

PAPER 1:PEN 3:CLS 

PRINT " Bien hecho, " 

PRINT: PRINT "' Capitan Kirk." 

PRINT; PRINT " flhora dehes luchar" 

PRINT: PRINT " con un grupo mas " 



PRINT: PRINT ' 

PRINT: PR I NT ' 
al i en=al ien+10 
LOCATE 3.23: 
PRINT "Una tecla 



pel i groso de 
KLINGONE . 



oar a jugar 
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1 0030 
10090 

10100 
10980 
11000 
11010 

11020 

11030 

19980 

20000 

20020 

20030 

20035 

20040 

20050 

20060 

20070 

20080 

20090 

20100 

20110 

20120 

20130 

20140 

20150 

20 1 60 

20170 

20 ISO 

20190 

20200 

20210 

20290 

20300 

20310 

20320 

20330 

20340 

20350 

20360 

20370 

20380 

20390 

20410 

20420 

20430 



a*=INKEYS 

IF a4="" THEN GOTO 10080 

GOTO 1010 

; ; :<<lestrellas>»»»>»> 
INK cir.2 

clr=clr+l: IF clr=l3 THEN clr^5 
INK clr,26 
PET URN 

'■■ £«« L -;.;v!:tiantalla:;->>»/»»» 
MODE O : SPEED I NK 10.10 
INK 0,0* INK 1,2: INK 2,3: INK 3,24 



i INK 14,2,24: INK 15,24, 

#1. 1.20, 1,2 

#2,2,13,3.19 

#3. 15, 19,5. 11 

#4,15.19,13, 19 

0: PAPER 0:PEN 4;CLS 
#1, 1:CLS ttl 
#2,3»CLS #2 
#3.3:CLS #3 
#4,3:CLS *4 

16, 4: PRINT "DLA" 

16, 12: PR I NT "DCA" 



INK 4.3 

WINDOW 

WINDOW 

WINDOW 

WINDOW 

BORDER 

PAPER #1.4; PEN 

PAPER #2, 1:PEN 

PAPER *t3.2:PEN 

PAPER #4, 2: PEN 

LOCATE 



1. 21 : PR INT 

1,23:PRINT 
1.25: PR INT 
11, 21: PR I NT 
11, 22: PRINT 

11, 25: PR I NT 



"ENERGIA" 
"ESCUDO" 

N FA50R" 
"SECTOR" 
"ENEM1GD: 
"*-BASE: " 



LOCATE 

PEN 3 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

PEN 4 

PRINT CHR*<23> :CHR*<0> ; 

col =5 

FOR n*l TO 12 

PLOT 2OtH-n*16,230,Col 

PLOT 23S-rt*16. 230 t col 

PLOT 222,220+r,*l2,col 

PLOT 222,240-n*12 f cDl 

PLOT 2Oi+n*16,220+n*12,t:Ql 

PLOT 206+rt*16,240-n*l2 f col 

PLOT 23B-n*16,220+n*l2,col 

PLOT 238-n*16,240-n*12,eol 

INK 13,2 

PLOT 40 7 110, 13! DRAW 200,220 

PLOT 400. J 10, 13: DRAW 250,220 
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20440 
20450 
20460 
20470 



20490 
20500 

20510 
20990 
21000 
21005 

21010 
2 1 020 
21030 
11040 
21050 
21060 
219S0 
22000 
22010 

22020 
22030 
22040 

22050 

22060 

22070 

22OS0 

22090 

22100 

22110 

22120 

22130 

22140 

22200 

22960 

23000 

23010 

23020 

23030 

23040 

23045 



col=col+ljlF cd1=13 THEN col=5 
NEXT n 
PEN 1*2, 3 

LOCATE #2, 5, 12: PRINT #2, CHRSU47) : 
CHR*<l5S> ;CHR*<1581 :CHF:*<i53>- 
clr=5 

PRINT CHR*(23>;CHR*(l: ; 

RETURN 

<l«« <<, dificul tad »>>>»:■ ■ 
PAPER OsPEN 1;MQDE l 
mu,ert9=0 
PRINT "Dificil/Facil/Nedio -** 

a*=*lNKEY*:a*aUPPER*<a$J 
IF a*="D" THEN alisn=20: RETURN 
IF a*="F" THEN al ien=lO: RETURN 
IF a«»«H w THEN alien = l 5s RETURN 
GOTO 21020 

f « '"<iniciAli3aci on >;■}»»» 

RANDOMISE TIME 

FOR n=l TO 15:3(n.l>=0!3(n,2)=0; 

NEXT n 

FOR n=i TD alien 

se?c = INT{RND (11 * 151 + 1 

IF s(sec.D>3 THEN GOTO 22030 

s (sec, l)**s(&ec.l> + l 

NEXT n 

FOR n=l TO 3 

do=INT(RND(1> *15)+1 

IF s(po,2>=l THEN GOTO 22080 

s(pa,2) = l 

NEXT n 

f aso=25 : en 5f =25 : b ad =0 : escu=25 
sec = lNT(RND(l ) * 151+1 

enem=0 
RETURN 

<<*«««<l&rqo alc£nce»>»;-;.» 
SOUND 2,200,25, 15 :p Q =i 
FOR n=l TO 3 
FOR n5=l TO 5 

LOCATE #3 im ,n*2iPEN #3,3 
IF po=sec THEN PEN 1*3,15: 
PRINT tt3,CHR* (240): GOTO 23070 
IF s(po T l>>0 AND s (pa, 21=1 THEN 
PEN #3, 4 1 PRINT #Z. CHR$ (2321 t 
GOTO 23070 
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23050 
23060 

23070 

23090 
23090 
23100 
23140 

23150 
23190 
23200 
23980 
24000 
24005 
24010 

24015 
24020 

24030 
24040 
24050 
24090 
24100 
249B0 
25000 
250 1 
25020 

25030 

25040 

25050 
25060 
25070 

25080 

25090 
25100 
25110 
25120 
25130 
25150 



GOTO 23070 



IF a<po, 1>>0 THEN 

PRINT #3,CHRS(234> 

IF s(po,2J=l THEN 

PRINT tt3,CHR£(235> 

po=po+l 

NEXT m 

NEXT n 

FOR n=l TO 7500: NEXT n 

CLE #3 

SOUND 2,200,25.15 

ener=ener — 6 

RETURN 

' '«««««EDrto alcance: -»»» 

SOUND 2,150.25.15 

PEN #4,15 

LOCATE #4. 2. 3: PRINT #4. CHR4 (234) ; 

=■ ( 5 S - , 1 > 

REN #4, t4 

LOCATE #4,2,5:PRINT #4. CHR* (2351 i 

s(sec.2> 

FOR n=l TO 7500: NEXT n 

CLS #4 

SOUND 2,150.25, 15 

ener=enef — 3 

RETURN 

'<«<<<<<<<< <movi mi en to »>>»»> 

CLS #1:PEN #1,3 

PRINT ttl, "FACTOR DE MOV. U-5>?" 

a*=INKEYt:a*=UPPER*(a*l : 

IF a*=" " THEN GOTO 25020 

IF a*<"l" OR a*>"5" THEN 

BOUND 2,3,50,50, 15: GOTO 25010 

dis=VAL(at> 

CLS #1 

PRINT #1,"DIRECCIDN DE NOV.?" 

a*™INKEYt:a*=UPPER*<a*l : 

IF a*= ,M> THEN GOTO 25070 

IF aSV 1" OR &%>"&" THEN 

SOUND 2,3,50,50, 15: GOTO 25060 

dir=VAL(a*l 

RESTORE 25500 

FOR n-1 TO dir 

READ jc-V 

NEXT n 

FOR n*l 



TO dis 
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25160 

25170 
251 BO 
25190 
25250 
25260 
25270 
25230 
25300 
25500 
25580 
25600 
25610 
ALERTA 



25620 
25650 
25660 
25670 
25650 
25690 
25700 
259S0 
26000 
26010 



26020 
26030 
26040 
26050 
26060 
26070 
260B0 
26090 
26100 
26102 
26J04 
26110 
26120 
26150 
26160 



IF sec<l THEN sec= B er+15 

IF sec > 15 THEN sec=sec- 15 
SOUND 2,75*n T 25,15 
NEXT n 

IF 5<sec,i)>0 THEN GOSUB 25600 
CLS #1 

ener=ener-INT (di s*l . 5) 
RETURN 

DATA -5,04,1,6,5,4,-1,-6 
<<<<<<<<<<< ALERTA>>>»»>>>>>>> 

F'EN #1 , 15 

a*=" ALERTA ROJA « .ALERTA ROJA ' 
ROJA ! - " 



K = lNTfRND(l>*300> + loo !C li5-l 
FOR n=l TO 25 

a*=RIGHT*Ca$.39>+LEFT*<at, 1> 
LOCATE #l,l,l:PRiNT t»l,a* 
SOUND 2,100-n*2.1, 15 

NEXT n 
RETURN 

'<<<<««<<< ENTRADA BASE>»>>»%> 

CLS #1:PEN #1,3 

IF s<sec,2>=0 THEN 

PRINT #l,"No hay Base Estelatr 

SOUND 2,300, 25, 15: RETURN 

x=INT CRND < 1 ) *200> +75: dis=l 

y =350: TAG 

PLOT Oj.0,1 

MOVE ;«>■: PRINT CHR*(235>: 

GOSUB 2B000 

MOVE :<,y: PRINT CHR5(2353; 

IF ri^i THEN dis=dis-l 

IF le-i THEN dis=dis+l 

V^y-l:x=K+dis 

:<= ; 30; dis=di s+1 

ji^SBOs cfid & dis-l 

GOTO 26150 



26170 
26180 



IF >;<30 THEN 

IF j:>380 THEN 

IF y=200 THEN 

GOTO 26050 

TAGOFFaPEN 4 

IF w<160 OR x>270 THEN 

PRINT #1."FALLASTE l '"j 

SOUND l, 400,25. 15s RETURN 

IF K>190 AND K<240 THEN GOTO 26200 

PRINT ttl," BASE ESTELAR DEST 
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26240 
26250 
269S0 
27000 

27010 

27030 
27040 



27050 
27060 
27070 
27100 

27 HO 
27120 
27130 

27132 
27135 

27140 
27150 
27160 
27170 
271 BO 
27200 
27210 
27220 
27230 
27235 
27240 



SOUND 1 
SOUND 1 
SOUND 1 



RUIDA" t SOUND 1, 500, 50, 15,0, 0, 31 
261 S5 FOR n=5 TO 12s INK n. 3c NEXT n 

26190 FOR n=5 TO 12: INK n. 6s NEXT n 
26195 6<sec,2>=0: RETURN 

26200 PRINT #1 . "ENTRANDO " 

26210 ener=ener+20i IF ener>95 THEN 

ener-95 
26215 fa50=-f aso+20: IF -faso>95 THEN 

■f aso~95 
26220 escii»asct»+20i IF escu>95 THEN 

escu=95 
26230 SOUND 1 , 300, 25, 15: 
200.25. 15: 
100.25, 15 

FOR n-1 TO 2000: NEXT n:CLS ttl 

RETURN 

'<«<<<<«<<<batalla>>»>>>»» 

FOR n=200 TO 50 STEP-1: 

SOUND l,n, 1, 15: NEXT n 

rnuerte=0 

PEN tt 1 , 3 

IF 9(sec.l>=0 THEN TAGOFF;CLS #tl 

PRINT #!,■' SECTOR DESPEJADO, ,J : 

RETURN 

K«INT (RND < 1 > *200) +75 

v=INT(RNDf 11*100) +100 

TAG: PLOT 0,0, 1 

TAB; MOVE :!,v; PRINT CHR«(235); 

GOSUB 23000 

IF fi>i AND faso>0 THEN GOTO 27500 

MOVE jL,y:PRINT CHR*<235>; 

TAGOFF 

IF kil = l THEN 5(sec,l)=si5ec.i)-l: 

ki 1=0: GOTO 27010 

IF Ie=l AND :<<350 THEN ;:d=::d + l 

IF ri-1 AND >:>45 THEN *d-:<d-l 

IF do=l AND y<350 THEN yd=-yd + I 

IF up=l AND y. 110 THEN yd^yd-1 

IF e>i=I THEN RETURN 

::^+Kd;IF :<<50 THEN k=50: ::d=-::d 

IF K>360 THEN :l-360: ::d = -::d 

y=y+yd; IF y>360 THEN v=360 

IF y<120 THEN y- 120: yd— yd 

RANDOMIZE TIME 

IF RND (1X0. 95 THEN GOTO 27270 
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27250 
27260 

272£5 
27270 
27230 
27290 

27450 
274 ?ti 
2750O 
27510 

27520 
27530 
27540 



27600 
27960 
20000 
28010 
26050 



INK 1,3: SOUND 1.400,20,15,0,0,31 

egcu=escu'l; IF h»scu=-1 THEN 
muerte=l ; RETURN 
FOR n=l TO 30JNEXT n:INK 1,2 
LOCATE 7, 23: PRINT escu; 
LOCATE 7. 25 s PRINT faso; 
LOCATE 17, 23: PRINT enem; 
GUTO 27100 

INK 13,6 

FOR n=100 TO 50 STEP- 1: 

SOUND 2,n, 1. 15: NEXT n 

mv. 17,2 

taso^f aso-i 

IF y<240 AND y. 200 AND w<240 AND 

n>200 THEN enefii = enem+lt ki 1 = 1: 

SOUND 2,300.50,15,0.0,15 

GOTO 27130 

< < <««< comi ens o > > > > > » » » - f 
GQBUB 29000 
GOSUB 11000 
RETURN 



Ahora una con ' MERGE' la subrutina de 
PHtradri de car uteres ' . 



Fronton arco iris 




Un juego rfdsico 

Este oiro progrema clasico ejerce un fuerte atractivo pars todas 
las edades. Par ser uno de los mds cartas del libro, puede ser un 
buen comienio para los principiantes en programacion. 

En primer lugar se pide que se eiija un bate grande a uno pa- 
quefto. El fin es conseguir eliminar todos los ladrillos golpeando- 
los con la pelota El bate se control a con las -flee: has* (cursor! o 
&ten con un "joystick- v nay que mouerlo anticip^ndose al recorri- 
do de la peloia que rebotara en la pared de ladrillos. 

Dispone de cuatro pelotas antes de que el juego vuelva a em- 
pezar La puntuacibn. que puede alcanzar atlas cotas cuando los 
jugadores son eitpertos, aparecera" al final. 



Este programa se puede unir a la rutina del da <Puniuactdn ma- 
xima* Con esto, el nival de competiclon perrmtira la entrada de 
Giro jiiyador a bien. simplemente, poner a prueba Ja pericia da uno 
solo. 
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1 
2 






500 

510 

520 

530 

550 

560 

570 

1 000 

1010 

1020 

1030 
1040 

1050 



1100 

1110 

1200 

1210 

1220 

1230 

1250 

1500 

1520 

1550 

2000 

19980 

20000 

20010 

20020 

20030 

"20040 

20050 

20060 

20070 

20075 

20080 

20090 

20100 

20110 



'<«««;<arco iris/;: >»»» 
REM 

RANDOMIZE TIME 

SYMBOL 240.255,195.165.153,153. 
165, 195.255 
SYMBOL 24 1 . 255 . 255 . 255 , 224 . 224 , 224 

224.64 

SYMBOL 242.255,255,255.0.0.0.0.0 
SYMBOL 243. 255. 255, 255, 7. 7, 7,7,2 
MEMORY 34995 
addr=34999; GDSUB 29500 
loca=35029* GOSUB 30500 
sc=0: 1 i*=5 
MODE 1 

INPUT "Ragueta pequena/grande?",a$ 

s*=" ":Iim=l9 

IF a4="G" OR a*='g" THEN 

s*=CHR* f 242 ) +CHR* < 242 ) c 1 1 m- 1 7 
GDSUB 20000 
count=0 

GOSUB 21100 
b=24 
RANDOMIZE TIME 

IF RNDU)>0.5 THEN c-i ELSE c=0 

c=c+<lNTCrdnU>*10)+5> 

bd=~i: ad^^l 

GOSUB 21000 

GDSUB 22000 

IF count >1 50 THEN GOTO 1050 

GOTO 1500 

' »>>»: >^oantalla<<<<«<<<<<<<<.< 

RESTORE 20050 

FOR n=0 TQ 15 

READ w 

INK n.w 

NEXT n 

DATA 0.24.16,26,20,4,6,15 

DATA 24,18.2,5,8,6.15,2 

PAPER 0: BORDER 2: MODE 

RESTORE 20210 

FOR n=l TO 20 

READ col 

FOR m =l TO 10 

LOCATE n.in 



20120 PEN col 

20130 PRINT CHR*<240>5 

20140 col ^cnl+1 

201 50 NEXT m 

201^0 NEXT n 

20200 RETURN 

20210 DATA 3,4,4,5,5,5,5,6,6,6.6,6,6,5, 

5 , 5„ 5, 4 , 4 T o 
209S0 ? :->>>>>: >:mov i mien to<<<<<<<<<<« 
21000 GQSUB 29000 
21010 IF le=l AND Jt>l THEN GOSUB 21400: 

;l=-,;-2:G0SUB 21100 
21020 IF ri = l AND n'Aim THEN GOSUB 21400 

::4=k+2: GOSUB 21100 
21030 RETURN 

21090 '<<<<<<<<<<dibujo>>>>>>>>>>>>>>>> 
21100 PEN 1 
21110 LOCATE ;;, 25: PRINT CHR* (241 > ; S$ i 

CHR* (243) ; 
21120 RETURN 
21390 '<« < -;<<««borrado>»>»»>»» 

21400 LOCATE ;;.25;PRINT « "s 

21420 IF s*<>"" THEN PRINT " " ; 

21450 RETURN 

21680 *««<««dib\sja pelota>>>>>>>>> 

21700 PEN 2 

21710 LOCATE c,b: PRINT CHRt(202)i 

21720 RETURN 

21790 '■;<<<; ;<<borrado pelota>»»»> 

21 BOO LOCATE c,h: PRINT * " ? 

21310 RETURN 

219B0 '-:<<<<<< <<movifni ento oelota>>>>>> 

22000 GOSUB 21800: al=c: b 1-b 

22010 al=al+adtbi=bl+bd 

22020 IF a 1=0 THEN al=lsad=l: 
SOUND 2,50. 1, 15 

22030 IP al=21 THEN al=20;ad=-ls 
SOUND 2.50, 1,15 

22040 IF fai*0 THEN bl=l 

22050 IP bl=25 THEN GOTO 22500 

22060 LOCATE al.bl: GOSUB 30000 

22070 IF ch-240 THEN PRINT u ";: 

SOUND 2, 100,2, 15: ac°BC+10:bd=~bd: 
caunt-count+1 

22075 IF bl=l THEN bd=l; SOUND 2,50,1,15 
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22080 
22090 

22100 

22300 

22510 

22520 

22530 

22540 

22550 

25980 

26000 

26O10 

26020 

26100 

26110 

26120 

26130 

26140 

26150 

26160 

26500 



26520 
26525 
26530 



c-c+ads b=b+bd 

GQSUB 21700 

RETURN 

LOCATE c,25:G0SUB 30000 

IF ch=32 THEN GOTO 26O0O 

bd=-l 

IF RNDUK-0.5 THEN C-c+1 

SOUND 2,75, i, 15 

RETURN 

«<<««fir\s»»»»»» >>>>>> 
GOSU& 21400: li=li~l 
BOUND 2,300,75, 15 
IF H>0 THEN GOTO 1100 
MODE O 
PEN 1 

PRINT « FELICITACIONES ' "■ 

PRINT 

PRINT 

PRINT 

PRINT sc; " pantos 

LOCATE 1,24; 

PRINT "Dtro juego ? (S/N) " 

a*=lNKEYt; a»»UFFERt <af) 

IF a*="S" THEN GOTO 1000 

IF a*«"N" THEN CLS:MODE 1 : END 

GOTO 26510 



"Su ountuacion: 



i ii 



Ahora una con 'NERGE' las subrutinas de 

'entrada de caracteres' y eJe 
'ctwriprobricion de caracteres. 



Et loco del laberinto 




Un programa con perspective 

En este tercer juego clrisico, el laberinto en 3D, se press ma una 
perspectiva de los c aminos que hay ante usted. 

El objeto del juego es atarirse paso por el laberinto con rapidez, 
la suficiente como para atrapar al toco. Por et conlrario. si es muy 
lento el loco le a I canard a usted. 

En la pantalla aperecen los caminos abiertos y l fl flecha que 
hay en la parte inferior indica la direcci6n en que estS mirando y 
la distancia reeorrida hacia la salida que se encuentra en la parte 
superior derecha de la pantalla 



Las flechas (o cursor) que indican derecha o izquierda permi- 
ten cambiar de direccidn y las que senalan hacia arriba I o ha- 
cia aba jo I sirven, r aspects a me me, para avanzai - una posicldn 
en el dibujo o para retroceder un puesto y recuperar la direccidn 
en que se estaba. El -joystick curnpie la rnisma funcidn. 



60 JuBffps se/MBcionates para AMS7RAD 

Una va* que se ha logrado salir del I a bar in to el trempo dispo- 
nrble se acorta y el objaiivo as repetir la operacion procurando su- 
perar ia marca. 

Este juego utiliza una tacmca ccmpleja que se basa en los *pun- 
teros de color* del Amstrad y su objeiivo es hacer cambios de gra- 
ficos en la pantaNa ya que puecfe permitirle efectuar movrmientos 
a gran velocidad en sus propios programaa, 

Si el prog ra ma se carga Junto cor la ruiina del de "Puntuacidn 
maxima" podrdn particrpar muchos jugadores e in tenia r su perar 
cada vez el tiempo del oponeme. 



1 

900 

1000 

1020 

10S0 

1060 

1065 

1070 

1 080 

1090 

1 1 00 

J 1 50 

1160 

1170 

1180 

1200 

9980 

10000 

10010 

6.60 

10020 

10030 



maniaco del laberinto>> 



"DEL HAN I ACQ" 

32000 

23000 



1 ««<el 

REM 

high=99 

GDSUB 24000 

GDSUB 22000 

pa-1 i view=4: targ-high-4 

LOCATE 9, 22: PRINT "EL LABERINTC 

LOCATE 8, 24: PRINT 

GOSUB 20000: GOSUB 

GOSUB 27000: GDSUB 

start=TIME 

GDSUB 28000 

GDSUB 27000 

GDSUB 23000 

IF wnn=l THEN GOTO 33000 

won^O 

GOTO 1100 

, < , <<<«««manstruo»>»»»» 

SYMBOL 228 r O, O, 16, 44, 62, 28, 56, 1 12 

SYMBOL 229, 129, 66, 126, 90, 126, 106, 8 



SYMBOL 
SYMBOL 



230,0,0,8,52, 124,56.23, 14 
231,112,121,127,63,31.7,1,1 

.232,60,255,255,255,231,215, 



233, 14, 156, 254, 252, 24B, 224, 



235,213 

10050 SYMBOL 

128, 128 

10060 SYMBOL 234.1,3,15,15,31,63,62,62 

10070 SYMBOL 235,171,213,235,215.235,255 

,60,0 

100BO SYMBOL 236,123,192,240,240,248,252 
, 124, 124 
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10090 SYMBOL 237,30,15,15,3,59.127,127.5 

7 

10100 SYMBOL 238,0,0,0,0,129,195,195,129 

10110 SYMBOL 239,120,240,240,192,220,254 

,254, 156 

10120 PEN 15: INK 15,13 

10130 LOCATE 8,10:PRINT CHRt<228>; 

CHR* <229> : DHR* <230) 
10140 LOCATE S.lliPRINT CHR*C231>; 

CHR*<232> :CHR*<233) 
10150 LOCATE S. 12: PRINT CHR*(234); 

CHR*t235) :CHR*(236> 
10160 LOCATE 8,13:PRINT CHR*(237); 

CHR$<238) ;CHR*<239> 
10170 PEN I 
10200 RETURN 

19980 '<<<<<<inicializa pantalla>>> 
20000 BORDER O: PAPER 0:MODE 
20040 INK 0,3: PEN 13 
20050 PLOT 0,76,13:DRAW 639.76 
20060 PLOT 0.72, 13: DRAW 639.72 
20070 PLOT 0.2, 13: DRAW 639,2 
20080 PlDT 0,6, 13: DRAW 639,6 
20090 PLOT 158,0: DRAW 158,78 
20100 PLOT 150,0: DRAW 150,73 
20110 PLOT 512,0: DRAW 512,78 
20120 PLOT 520.0: DRAW 520,78 
20130 GOSUB 21000 
20140 PLOT 0,80.0: DRAW 240.200: 

DRAW 240,278,15 
20150 PLOT 639, 80,0: DRAW 398,200: 

DRAW 398,278, 15 
20160 PLOT 160, 160, 14:DRAW 160,318 
20170 PLOT 478, 160. 14: DRAW 478,318 
20180 PLOT 80, 120, 13: DRAW 80,358 
20190 PLOT 558. 120. 13: DRAW 558. 35S 
20200 LOCATE 1,22: PR I NT "Met a" 
20210 LOCATE l,24:PRINT targ 
20215 PRINT CHR*<22> ; CHR# < 1 > ; 
20220 LOCATE 18, 22: PR I NT "Sa" 
20230 LOCATE 17.24: PRINT high 
20240 PRINT CHR£>22> ;CHR*(0>; 
20270 RETURN 

20930 *<<<<<<<<dibUjO paredea»>>>»>>> 
21000 FOR n-SO TO 118 STEP 2 
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21010 PLOT 0.n,l4:DRAW 558, n 

2 1020 PLOT 0,280+n, 13:DRAW 63S,280+n 

21030 NEXT n 

21040 FOR n=l20 TO 15B STEP 2 

21050 PLOT SO, n, 14: DRAW 556, n 

21060 PLOT S0,200+n, 14s DRAW 55S,200+n 

21070 NEKT rx 

21Q80 FOR n*l60 TO 198 STEP 2 

21090 PLOT t60,n,15:DRAW 478, n 

21100 PLOT 160.120+n, IS: DRAW 47S, 120+n 

21110 NEXT n 

21120 FOR n=200 TO 27B STEP 2 

21130 PLOT 240, n.O: DRAW 398, n 

21140 NEXT n 

21150 FOR r,-0 TO 7B STEP 4 

21160 PLOT n, 120, 10; DRAW n,35S 

21170 PLOT 639-n, 120. 7: DRAW 639-n, 356 

21160 NEXT n 

21190 FOR n=BO TO 150 STEP 4 

21200 PLOT n. 160,1 1;DRAW n,318 

21210 PLOT 639~n, 160,8: DRAW 639-n, 318 

21220 NEXT n 

21250 FOR n=160 TO 238 STEP 4 

21240 PLOT n, 200, 12i DRAW n,27S 

21230 PLOT 639-n, 200,9; DRAW 639-n, 27B 

21260 NEXT n 

21270 FDR n=360 TO 398 STEP 2 

21280 PLOT 76,360. 1: DRAW O, n 

21290 PLOT 78, 118. 1: DRAW 0,n-280 

21300 PLOT 560, 360, 4 t DRAW 638, n 

21310 PLOT 560, 118. 4; DRAW 63B,n-280 

21320 NEXT n 

21330 FOR n=320 TO 358 STEP 2 

21340 PLOT 158, 320, 2: DRAW 80, n 

21550 PLOT 158, 15B,2:DRAW 80,n-200 

21360 PLOT 4B0,320,5:DRAW 558, n 

21370 PLOT 480, 158, 5: DRAW 558,n-200 

21380 NEXT n 

21390 FDR n=2B0 TO 318 STEP 2 

21400 PLOT 238*280, 3: DRAW 160, n 

21410 PLOT 238. 198, 3: DRAW 160,n-I20 

21420 PLOT 400. 280, 6: DRAW 478, n 

21430 PLOT 400. 198, 6: DRAW 478,n-120 

21440 NEXT n 

21450 RETURN 
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219BO 

22000 

22010 

22020 

22030 

22040 

22050 

22060 

22070 

22080 

22090 

22100 

22110 

22120 

22130 

22140 

22150 

22160 

22170 

22 1 BO 

22190 

22200 

22210 

229B0 

23000 

23010 

23020 

23030 

23040 

23050 

23060 

2307O 

230Q0 

23110 

239S0 

24000 

24010 

24020 

24250 

24980 

25000 

23010 

25030 

25050 

25090 



'<««««^colGr datos>>>>»»» 
DIM 1 (14, 9> 
RESTORE 22000 
FOR n=l TO 14 
FOR rn=i TO 9 
READ a: 1 Cn.m>=a 
NEXT m 
NEXT n 
RETURN 

DATA 6.6.6,6,6,6,20,11,2 
DATA 6,6,2,6,6,3,20,11,2 
DATA 6,11,6,6,3,6,20.11,2 
DATA 6.11,2,6,3,3,20,11,2 
DATA 20,6,6,3,6, 6, 20,i 1,2 
DATA 20,6,2,3,6,3,20.11,2 
DATA 20,11,6,6,3,6,20,11,2 
DATA 20,11,2,3,6,3,20,11,2 
6 f 6, -ji, 6^6, v, *;'.*, 11, »i 
6, 1 1 j Of 6, ^', ji, j-O) 11,-^ 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



20,6*3,3*6*3, 20 ,,11, 3 



20, 11,3,6,3,3,20,11,3 

20,3,3,3,3,3,20,3,3 
<<<<^elegir colores>>>>>>>» 
FOR n=i TO 3 
INK n,l (vl,n> 
NEXT n 

FOR n-4 TO 9 
INK n+6, 1 Cvl ,n> 
NEXT n 

FOR n=l TO 6 
INK n+3,1 <vl,n) 
NEXT n 
RETURN 

'<««««<< variables >»»?»»» 
DIM m<55> 
GO SUB 25000 

adcfr =34999 sGOSUB 29500 
RETURN 

' ^<<<<<<<dat05 1 aber into»»»» 
RESTORE 25000 
FOR n=l TO 55 
READ aim(n)=a 
NEXT n 
RETURN 
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25100 
25110 
25120 
25130 
25140 
Z39Q0 
26000 
260 10 
26020 
26030 
26040 
26050 
26060 
26980 
27000 
27040 
27050 
27055 

27060 

27070 

27075 

27080 

27090 

27100 

27110 

27120 

27130 

27140 

27150 

27160 

27170 

27180 

27*80 

27500 

27510 

27520 

27530 

27540 

27980 

28000 

2B010 

28020 



DATA 4,6,1,6,7,5,4.6,5,6,1 

DATA 10,13,2,9.12,10,11,9,14,11,1 

DATA 6,9.6,3,9,2,5,6,9,6,5 

DATA 12,6,13,2,5,6,15,9,6,9,12 

DATA 10,?, 10,3,9,8,10, 3, 9, 2, 9 

■ <<<<<<<<<<n/s/e/w>>>>»>>>>>>>>> 

s<=m(po) 

no=0: sa=0; ea=0; we=0 

IF ;;>=B THEN no=l2x^x~e 






-4 
-2 

-1 



OR s*+ok>55 



IF >; ;=4 THEN 

IF :<>=2 THEN 

IF x>-l THEN 
RETURN 

'<C<C«««chek view»»»»»» 

GOSUB 30000 

vl = i: vr=l:a=l: s^po 

FOR q=2 TD STEF -1 

ok=q*disp: IF aa+ak<l 

THEN GOTO 27160 

po=sa+ok 

GOSUB 26000 

d^O: l=Oir=0 

IF view=l THEN 

IF view=2 THEN 

IF view-3 THEN 

IF ,<iew=4 THEN 

IF ttmQ THEN 

IF 1=1 THEN 

IF r=l THEN 



d- we : 1 -so :r=na 
d-no: 1-we: r~ea 
d=ea: l=nos r=so 
d-so: l=eas r=we 

GOSUB 27500 

vl=vi +a 

vr=vr+a 



d-0 

1 = 1 

r=l 
a=a*2 
NEXT q 

RETURN 
'<«««««XYZ»»»»»»»»> 

vl=13:a=l 

IF q=2 THEN vl=l 

IF a=l THEN vl=9 

vr=vl 

RETURN 

'position movimi enta! 

GOSUB 290O0 

IF le=l THEN view=view-i: 

GOSUB 32000 

IF ri=l THEN 

GOSUB 32000 



vi ew-vi =w+ 1 
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28040 



28050 
28060 



28090 
28110 
28500 
2S510 
28520 
28530 
26540 
28550 

2B560 

28570 

2B900 

2B910 

28920 

28930 

289 40 

28950 

28980 

29000 

29010 

29020 

29030 

29040 

29050 

29060 

29070 

29080 

29090 

29480 

29500 

29510 

29520 

29530 

29540 

29550 

29560 

29570 

29580 



IF do*l THEN view=view-l: 

GOSUB 32000i vieiM=view-l : 

GOSUB 32000: GDSUB 20500 

IF up = l THEN GOSUB 28500 

IF do=l THEN view=view-l: 

GDSUB S2006:view=view-1: 

GOSUB 32000 

IF pa=54 THEN WDN=1 

RETURN 

IF view=l AND we=0 THEN GOTO 28900 

IF view=2 AND nc=0 THEN GOTO 29900 

IF view=3 AND ea=0 THEN GOTO 28900 

IF vieu=4 AND so=0 THEN GOTO 28900 

GDSUB 30000 

IF po+disp>55 OR po+di-sp<l THEN 

GDTD 28900 

po=po+disp: GOSUB 32000 

RETURN 

BORDER IB 

SOUND 2.300,25,15 

FOR ==1 TO 25 

NEXT z 

BORDER 

RETURN 

* >»»>»INKeY*»»>>S»»»>» 
les=Oiri=Oiup=0:do=0:-f t=0sew=Oiq=O 
CALL addr+lia-PEEK faddr > 

IF a=8 OR a=242 THEN le~l 

IF a=9 OR a~243 THEN ri = l 

IF a-11 OR 3=240 THEN up=l 

IF a=10 OR a=241 THEN do=l 

IF a-8G OR a~224 THEN f$«* 

IF a=13 THEN q=l 

IF a=32 THEN ex=l 

RETURN 

'»»»»> >FOKE I NKE YS > > > > »» 

c=INT(addr/256) : b=addr-256*c 

RESTORE 29580 

FOR n=addr TO addr+13 

READ a i IF a=999 THEN a=b 

IF a=99B THEN a=c 

POKE n,a 

NEXT n 

RETURN 

DATA 0,62.0,50,999,998,205,27 
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29590 

29980 

30000 

3001 

30020 

30030 

30040 

309S0 

31000 

31010 

31020 

31030 

31040 

31050 

31070 

31080 

319B0 

32000 

32010 

32020 

32O30 

32040 

32050 

32060 

32070 

32080 

32090 

32100 

32110 

32 9 BO 

33000 

33010 

33020 

33030 

33040 

33060 

33070 
33490 



DATA 187,206,50,999,998,201 

movimiento;> >»»»» 



IF view e l 

IF view=2 

IF vie*i=3 

IF vi ew=4 

RETURN 

'<<«< :<-;;«arraw» 

sym=24l 



THEN 
THEN 
THEN 

THEN 



dlsp^-1 
disp=-i 1 
di sp=l 
di sp=li 



' 



vi bw=4 

vi ew=l 
svm=242 
svm^240 
sym=243 



IF view=G THEN 
IF view=5 THEN 
IF view=l THEN 
IF view=2 THEN 
IF view=3 THEN 
PRINT CHR*<syni>; 
RETURN 

'««««<:« 'map >»»>»»»»»» 

FOR n=2l TO 25 

LOCATE 6.n 

PRINT SPCtll) : PRINT 

NEXT n 

yp=INT<po/ll > 

>tp=po-(ll*yp> 

IF Kp=0 THEN >:p=ll ; yp-^yo-1 

PRINT CHR*<23J;CHftt(l>; 

LOCATE ::p+5,yp+21 

E-OSUB 31000 

PRINT CHRS (23 J tCHR*(0); 

RETURN 

««««fuera»»»»»>»»» 
i in-TINE-start 
sc-INTi-fin/BOO) 
IF sc<=high THEN high^sc 
won=0:CLS 

PRINT: PRINT "Tu tiempa fue ;»sc 
PRINT: IF scXtarg THEN 
PRINT "Ld conseguiste ! !" 
GDSUB 10000 
LOCATE 3, 24: PRINT "PrLteba otra 



. e: 



33500 FOR 2=1 TO 3000: NEXT z 
33510 GOTO 1050 



Ahora una con ' MERGE' la subrutina de 
en trad a de carac teres' . 



Duelo a las damas 




£/ micro es ef drbitro 

La idea es muy seneilla. hay que deshacerse de tod as las fiehas 
del contrario saltando por encima de ellas, para lo cual deberi ha- 
ber una casilla uacante at otro lado. 

Al principle s6lo se podra mover en una direction, hacia la par- 
te superior del lablero, si se hace con ias blancas, y hacia is parte 
inferior con las negras. Para mover una ficha hay que iniroducir: 
la letra, correspondtente a la coiumna en que se encuentre, y el 
numero, correspondiente a la fila, Por ultimo, y de la misma ma- 
nera, se indicaran los datos de la casiifa de destino. 

Si no se puede comer isaltar por encima de una ficha conlra- 
ria), el jugador ava nigra un puesio una de sus fiehas desde la ca- 
silla an que se encomraba hasia oira del mismo color. 



Cuando una ficha alcanza el extreme opuesto se cunvierte en 

una "da ma" y con efla puede moverse arriba y abajo del tablero. 
con lo cual tiene mucho mas poder, 



&S Juetgas sensaciangfos para AMSTfiAD 

La norma de que hay que comer obligaioriameme cuando eg 
posible, no siempre estd especificada en las reglas del juego, Al- 
gunos expertos mantienen que si uno no toma fa ficha del adver- 
sario cuando puede. entonces pierde la soya. A esto se le Kama 
-sop tar una ficha*. 

En este juego el ordenador no admitira una instruction de avari- 
ce de una ficha cuando sea posible comer, y el indicador conti- 
nuara mostrendo el color del mismo jugador mientras este no haya 
term in ado de comer. 

En cualquier momento se puede grabar el estado de una par- 
tida pulsando la tecla "Shifn-S", o bien cargar una partida previa- 
mente cargada con "Shift+L" Durante una partida o despues de 
cargar, se puede ver la partida paso a paso pulsando "Shift+3" y 
con "Space" tandremos este recorrido desde el principio. Si se pul- 
sa "Shift + 3" una vez mas, se voivera~ al punto de le partida en que 
se dejd y podremos continuar. 



19980 

20010 
20020 
20030 
20035 
20040 
20070 
200S0 
20090 
20100 
20110 
20120 
20130 
20140 
20150 

20 1 m 

20170 
20200 
20210 
20220 
=0230 
20240 
20250 
20260 



REM »»>»»Pmi ftLL^C ' ' '.««< 

PAPER O: PEW 1: BORDER 0;MODE 1 

WINDOW #1.2,25. 1«24 

PAPER #J.,3Yl*EN ttl,2:CLS #1 

PAPER #2,2 

TAG #2 

LUSTRINE* <3, 143> 

L1*=STRING*(3,,32> 

N$-LS+Ll*+L4+Ll*+L*+Llf+LS+LiiI 

FOR N=l TO 4 

FOR M=l TO 3 

PRINT #i.NS; 

NEXT M 

FOR M=l TO 3 

PRINT #1 , RIGHT* (N*, 21 > +LEFT? (N4, 3) 

NEXT M 

NEXT N 

FOR N=2 TO 23 STEP 3 

LOCATE l.N 

L*=HEX*((26-N>/3 !1 1) 

PRINT L$: 

LOCATE N+1.25 

PRINT CHR5<64+<N-K>/3>; 

NEXT N 
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20 
20230 

23930 
24000 

24010 
24020 
24030 
24040 
24050 
24060 
24070 
24080 
24100 
30930 
31000 
31010 

■ I 020 
31030 
31050 
31060 
31065 
310^0 
3 1 000 
31085 
31090 
31100 
31120 
31130 
31140 
31 1 50 
3 1 1 60 
31200 
31930 
"3000 

32015 

32020 
32025 
32030 

i. 'l -*' *._r .'i ^1 

32040 

32070 

080 



TO 

TO 



WINDOW «3,27.I9,2, 15 

PAPER #3, 3: REN #3.1cCLS #3 

REM »»>MNTRODUCIR< «<<<<< 

LOCATE #3.5. 4: IF PLAY=1 THEN PRINT 

#3, "BLANCO" ELSE PRINT #3. "NEGRO » 

LOCATE #3, 10, 6: PRINT &3. " M 

LOCATE #3. 10. 9: PRINT #3," » 

LOCATE #3, 10,6 

GOSUE 24500 

F*~NS 

LOCATE #3, 10.9 

GOSUB 24500 

3*=N* 

RETURN 

REM >>>»»»GRABAR<< <«<«<<« 

Z* <COUNT, 1>="FF" 

G*= — :SOUMD 2. 200. 20, 15; SOUND 2. 

100,40, 15 

FOR N=l 

FOR M-l 

NEXT M 

NEXT N 

FDR N=l TO 100 
H$=H$-f-Z*<N, U 
IS=I*+Z* (N,2) 
NEXT N 

H*=H9H-STR* (COUNT) 
PRINT #?.G* 
PRINT #?.H* 
PRINT #9, i* 
CLOSE OUT 

SOUND 2, 200, 20, 15: SOUND 2,100,40,15 

RETURN 

REN >>»»»:: >CARGAR;'V<<<<«< 

G«^'-" : SOUND 2,200. 20, 15: SOUND 2. 

200,40, 15 

Gf 

H* 

If 



LINE INPUT 
LINE INPUT 
LINE INPUT 

CLQSEIN 
FDR l\|=l TO 
FOR N=l TO 
NEXT M 
NEXT N 



#9, 
#9. 

It-. 
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32090 FDR N*l TO 100 
32100 Z4<N, 1)=LEFT*<H*.2> 
32110 H*=RI5HT£(HS,LEN(H*>-'^ 
32120 Z*<N.2*=LE:FTi<lS,2) 
32125 I*=jaeHT*<t*,LEN(I#>^i 
32130 NEXT N 

32 140 c o unt= v al >: m > 

32150 SOUND 2. 200, 20. 15; SOUND 2,200,40 15 
32160 GDSUB 20000 ' ' ' " 

32170 GGSUB 23000 
32180 LOCATE #3, 10.6 
32200 RETURN 



La subruiina tablero debe ser grabada separadameme del juego 
de Damas ya que s& usard lambi^n en el sigmente capltuln ( Pro- 
gram a de Ajedrei), 



1 REM< « ««« : < DANAS< «<■<<<<<«<< 

2 REM 

3 CLE 

30 SPEED WRITE 1 

1000 GDSUB 21000 

1010 FOR N=l JO 100 

1020 I*<N. 1) =■' » 

1030 I$(N,25=" 

1040 NEXT N 

1100 GDSUB 20000: GDSUB 22000 

1150 PRINT CHR*{23);CHR*(i>:;&0SUB 23000 

1160 COUNT =1 

1200 GOTO 1900 

16O0 GAM^O 

1610 FOR tf*l TO S 

1620 FOR M=l TO 8 

1630 IF MS<N.M>-"B" OR M*<N,M)="D" THEN 

1640 NEXT M:NEXT N 

1660 IF 5AM =0 THEN GOTO 10000 

1670 GAM=0 

1680 FOR N=l TO 8 

1690 FOR M~l TO S 

1700 IF M*(N,rU= i 'A" OR M* (N, N) = "C" THEN 
GAM— 1 

1710 NEXT N:NEXT N 

1730 IF GAM^O THEN 8QT0 11000 



1750 RETURN 

1900 GOSUB 29000 

1990 REM >»>>>> SCREEN «««<« 

2000 GOTO 1900 

9980 REM >>»»>NE6R0 GANA«< <<«<•£< 

10000 CLS 

10050 GOTO 11050 

10990 REM »»»>>>BLANCO GANA<«««« 

11000 CLS 

11010 LOCATE 15.10 : PR I NT "NEGRAS vers c en 
■I 

11050 SOUND 2, 300. 25; SOUND 2,200, 25; SOUN 

D 2.100.25 

11060 LOCATE 5, 24: PRINT "Quieres la reva 

r\eha <S/N> ?" 

11070 At=INKEY#: A*=UPPER* (A*> 

11 080 IF Af="S" THEN GDSUB 35000: GOTO 11 

00 

11090 IF A*="N" THEN GOTO RUN 

11100 GOTO 11060 

20000 INK 0,0: INK 1,26: INK 2, 14: INK 3,2 

20290 PRINT #3, "DAMAS 1 ' 

20300 PRINT #3."-- " 

20310 LOCATE tt3, 2, 6: PRINT #3, "DESDE : .,* 

20320 LOCATE #3. 2, 9: PRINT #3, "HAST A :-" 

20500 RETURN 

209BO REM 3 ■>>>>>>INICIALI2AR««««« 

21000 DIM MS (8,8) 

21010 DIM Z* (100,23 

21020 SYMBOL 240,0.0.0,0.15.127.255.255 

21030 SYMBOL 241,0,0,0,0,240,254,255,207 

21040 SYMBOL 242.188.175,170,170,122.15, 

0,0 

21050 SYMBOL 243,61.227.31,255,254,240,0 

,0 

21060 SYMBOL 244,0,1.9.87,99,113,125,255 

21070 SYMBOL 245, 0, 12B, 144 . 234 . 19S. 1 10. 5 

8, 1B7 

21080 SYMBOL 246.191.175.170,170,122,15, 

0,0 

21090 SYMBOL 247,125,227,31,255,234,240, 

0,0 

21250 RETURN 

21980 REM>>>>> COMIENZD DEL JUEGD <«<« 

22OO0 FDR N~l TO B 
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22010 
22020 
22030 
22040 
22050 
22060 
22070 
22030 
22090 
22100 
22110 
22120 
22 1 90 
229B0 
23000 
23010 
23020 

23030 
23040 
23050 
23070 
230S0 
23090 
23100 
23110 
23130 
23140 
23150 
23490 
23500 
23510 
2355b 



FOR M=l TO B 
M*(N.N)=" " 

next' m 

NEXT N 

FOR N=l TO S STEP 2 
M*£1.N+1> = "A' 4 
h£C2,N>="A" 
M*<3.N+n="A" 
M*<S,N)-"B" 
M* (7,N+n="B" 
M*(6.N)="B" 
NEXT N 
RETURN 

REM »»>>DIBUJA FICHAS<<<«<«<< 
X=25:Y=390 
FDR N-l TO 8 
FDR M=l TO S 
C*=M$ CN, M) : Cf ^UPPERS <C*) 
IF 0*=" " THEN GOTO 23100 
COL -3 ELSE 



' THEN 
COL 



COL =2 



IF E*="A' 

PLOT 0,0. 

HOVE X,Y 

GOSUB 23500 

FLOT 0,0,0 

X-X+49 

NEXT M 

X=25: Y=Y-48 

NEXT N: RETURN 

REM ,*** FICHA *** 

D*=CHR$ < 240 ) +CHRS (241 > 

D1S-CHR*{242) +CHR*<243) 

IF C#="C" OR CS-'-D" THEN DS^CHR4(2 
44 ) +CHRS (245) : Dl $ =CHR* ( 246> +CHRS (247 > e HU 
FFO 

PRINT K2,D*S 

MOOE X,Y-16 

FRINT #2,01*; 

RETURN 



23 A 00 
23^10 



23620 
23750 
24500 
24510 
24520 
24524 
24526 
24528 
NT, 13 



(Ms-mi 

A*-INKEY* 
IF A*="Q" 
IF A*="S" 
IF A*="L" 
IF AS="#" 



THEN RUN 

THEN GOSUB 31000 

THEN GOSUB 32000 

AND COUNT >l THEN 2* <COU 



""FF" ; GOSUB 35000 
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24530 AS=UPPER*<A*i 

24540 IF A*<"A" OR A*>"H" THEN GOTO 2451 



2. 150*5* I3i PRINT #3 ,N 



24550 N4=A*: SOUND 

a. . 



24560 

24570 



24560 

,A«; 

24590 

24980 

25000 

25090 

25100 

25110 

25120 
S)-"C" 
25125 
25130 

25135 
25140 
25150 
25160 

25200 
25210 

25220 
25230 

25250 

25260 

25270 

252S0 

253O0 

25310 

25320 

E CtfL= 

25340 

25350 

25360 

25980 

260OO 

26010 

26020 



A*=INKEYS 

IF AS: 1 !" OR A*>"9" THEN GOTO 2456 

N*=N*+A*: SOUND 2, 150. 5, i5i PRINT *3 

RETURN 

REM »»»>S MUEVE <$< <«<«<« 

GOSUB 26000 

RQ*=S1:C0-S; GOSUB 25200 

M*<S1,S)=M*£F1,F> 

IF Bl = i AND eWU^ft'*"!^ THEN M* 1 1 , 

:HUFF-0 

IF S1=B AND M*(S.S)="A" THEN n*<B, 

: HUFF=0 

SOUND 2,200,75, 15 

RO^SliCO^S: GOSUB 25200 

SOUND 2, 100, 10, 15 

RO=FltCO=F; GOSUB 25200 

MS<Fl,F)=" " 

RETURN 

X=25:Y=390 

FOR N-l TO 8 

FOR M-l TO B 

IF N-RO AND M^CO THEN GOSUB 25300 

X-X+43 

NEXT M 

X=25:Y=Y-4B 

NEXT N 

RETURN 

OS-MS<N.M> 

IF C*=" " THEN RETURN 

IF C**"A" OR CS^'C" THEN COL-3 ELS 

FLOT 0, O, COL i MOVE X.Y 

GOSUB 23500 

RETURN 

REM >>>»>>>CONVIERTE<<<<<-<<<«< 

F=ASC(LEFT*(Ff , 1) ) 

F-F-64 

F1-VAL< RIGHT* CF*. 1> > 
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26030 F1-9-F1 

26040 S=ASC (LEFT* (S*. 1) J 

26050 S=S-64 

26060 Sl^VAHRIGHTiiB*. 1>) 

26070 Si -9-8 1 

26080 RETURN 

26090 REM »»»RE-CUNViERTE-'-! :«<«< 

261O0 RS^CHR* CCOL+64) 

2&1 10 R*=RS+STR* (9-LIN> 

26120 RETURN 

26980 REM > > > > > > > > V AL j DA« «« < < « 

27000 GOSUB 26000: HUFF =0 

27005 R*~"B ,f ;R1*- ,I D■ I 

2700" 7 IF FLAY=2 THEN Pt^"fi»- oi*-..i-.. 

27010 FOR Y=l TO S 

27020 FOR X-l TO 8 

27030 IF HUFF=1 THEN GOTO 2706O 

27040 IF M*<Y,XK>p* AND M*<Y.X> OPt* T 

HEN GOTO 27060 

27050 GOSUB 33000 

27060 NEXT X 

27070 NEXT V 

27075 CHECK=1 

27090 C*=rt*(Fl.F):D*=M*<Sl S3 

27090 IF C$=" » THEN RETURN 

27100 IF* C*= h, A" OR C*="C" } AND PLAY=1 

THEN RETURN 

27110 IF<C*="B" OR C*="D"> AND PLAY^ TH 

EN RETURN 

27120 IF DSO" ■■ THEN RETURN 

27130 IF Cf*r"A" AND SKFl THEN RETURN 

27140 IF £S="B" AND Si ; Fl THEN RETURN 

27150 XD=S^F:YD^S1-F1 

27160 IF SGN<XD)*<XD>=*1 AND SGN(YDJ*(YD> 

=1 THEN GOTO 27490 

27170 IF SGN(XD>*XD<>SGN(YD>*VD THEN RET 
URN 

27180 XS=M*<Fl+<YrV2) h F+<XD/2)) 

27190 IF (X*="A" OR X»«"C" ) AND FLAY«2 

THEM RETURN 

27200 IF <X*="B" OR X*="D"> AND PLAY=1 T 
HEN RETURN 

27210 IF X**« " THEN RETURN 

27220 R0-F1+(YD/2):CD-F+(XD/2):G0SUE 252 

oo 



Duelo a /as damns 66 



27230 LIN»Fl+(YD/2>:C0L=F+<XD/2) 

27240 M*(LIN.COL)=" " 

27250 GOSUB 26100 

27260 2* (COUNT, 1)=R4: Z$ (COUNT. 2> *R* 

27270 COUNT-CDUNT+1:GOTO 27500 

27490 IF HUFF=1 THEN RETURN 

27500 CHECK=0: RETURN 

27980 REM »»»»TURN«<«<<:<< 

28O00 G0EU5 :'4000iHUFF=0 

2B005 LOCATE #3, 1 , 1 1 : PRINT #3,SPC<12) 

2B006 LOCATE #3, 1 , if : PRINT tt3,SPC<12J 

29010 GOSUB 27000 

28020 IF CHECK=0 THEN GOTO 2B050 

2B030 LOCATE #3, 1 . 11 : PRINT #3," MQVIMIEN 

TO NO OAHEO" 

2B040 SOUND 2, 300. 50. 15: GOTO 28000 

28050 GOSUB 25000 

23060 Z${ COUNT.!)- FS: Z* (COUNT, 2 > -S* 

28O70 COUNT-COUNT+1: IF E0UNT=101 THEN CO 

UNT=1 

2B075 IF HUFF=0 THEN GOTO 28100 

2B0B0 Y=S1:X=S: GOSUB 33000 

28090 IF HUFF=1 THEN 34000 

2B100 HUFF=Oe RETURN 

28980 REM >>>>>>?AMBOS JUGADORES<<<<<<<< 

29000 PLAY-»1 

29010 GOSUB 28000 

29020 GOSUB 1600 

29030 PLAY=2 

29040 GOSUB 28000 

29050 GOSUB 1600 

29060 RETURN 

31040 G«=G«+N* <N,M) 

31110 OPENOUT ""DRAUGHTS" 

32010 QF'ENIN "! DRAUGHTS" 

32050 M4 <N.M)=LEFT5 (G*. 1> 

32060 G$-RIGHT*<G$.LENCG*)-1) 

32980 REN »»»>HUFF« ««««< 

33000 HUFF=0 

33010 HI*-" A" :H2*="C" 

33020 IF PLAY-2 THEN Hlt^'B" : H2t=<"D" 

33030 IF ¥<3 OR M*(Y.X)="A" THEN GOTO 33 

080 

33040 IF X<3 THEN GOTO 33060 

33050 IF tM*fY-l,X-13=Hl* OR Mt(Y-l.X-l) 
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=H2«> 
33060 
33070 
)=H2* 

33080 

3130 

33090 

13100 

*H2S> 

33110 

33120 

=H2*> 

33130 

33131 

33980 

34000 

34001 

34010 

34020 

34030 

34040 

34050 

34060 

34065 

34070 

340 SO 



AND M*(Y^2, X-2>^" " THEN HUFF*1 
IF X>6 THEN GOTO 33080 
IF t HS<Y-1,X+1>^H1S OR M*(Y-1,X+1 
> AND MS (Y-2, X+2>=" " THEN HUFF^l 
IF Y>6 DP M#(Y.X>="S" THEN GOTO 3 



1> 



IF X<3 THEN GOTO 33110 

IF <M*<Y+1. X-l)=Hl* OR rBCY+l.tf- 

PiND MS(Y+2< X-2)=" ,1 THEN HUFF-1 
IF X>6 THEN GOTO 33l30 

if <ms<y+i,x+i>=hi* an n*(Y+i,x+i> 

AND M4(Y+2. X+2>-" " THEN HUFF^l 

RETURN 

RETURN 

REM .. ' .■; :■ >>VETE OTRA 7EZ<«<<<<< 

LOCATE #3,10,6 :PRINT «3.3S 

F*=-S* 

LOCATE 

LOCATE 

GOSUB 24500 

S*=N* 

LOCATE #3,KI1:PRINT 

LOCATE #3, 1,1 2: PRINT 

GOSUB 26000: GOSUB 27075 

IF CHECK=0 THEN GOTO 34110 



#3. 10, 9: PRINT 
#3.10,9 



*3, 



&3*SPCC123 
#3.SFC<12> 



34090 LOCATE #3. 1 * 1 1 1 PRINT #3," MOVIMIEN 
TO NO VALIDO" 

34100 SOUND 2.300,50, 15i GOTO 34020 
GOSUB 25000 
2* (COUNT, ll=*F*i ;*<C0UNT,2)=S* 

COUNT=COUNT+1: IF C0UNT=101 THEN CQ 



34110 

34120 
34 1 30 
UNT=1 
34140 
34150 
34160 
34163 
34980 
35000 
35010 
35020 
3503O 
35040 




Y=S1 : X=S: GOSUB 33000 

IF HUFF-1 THEN GOTO 34000 

HUFF=0: IF RLAY=1 THEN PLAY =2 

GOTC 28050 

REM > > > » >»REPET I C 1 0N< :<<<<<<< 

C0UNT=0:RLAY=1 

GOSUB 22000 

GOSUB 2OO00; GOSUB 2300O 

COUNT =C0UNT+1 

IF ZSCCOUNT^n^FF 1 ' THEN GOTO 3550 
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35050 

35060 

35065 

35070 

35080 

35090 

35095 

35100 

35110 

O 

35 1 20 

35130 

35135 

35140 

35150 

35155 

35160 

35170 

35500 

35510 



F*-Z * ( f COUNT , 1 > : SS= Z* < COUNT , 2 > 
GOSUB 26000 i GOSUB 25000 
IF F#=S* THEN GOTO 35030 
COUNT=COUNT+1 

ft*=INfcEY* 

IF A*~"" THEN GOTO 35080 

PLAY=2 

IF Atznf#» THEN GOTO 35500 

IF Z*<CGUNT. 1)="FF" THEN GOTO 3550 

Fi-li (COUNT, It *8*«Z*iCQUNT#'2} 

BOSUB 26000; GOSUB 25000 

IF F*=S* THEN GOTO 35030 

A*=INKEY* 

IF A*=" " THEN GOTO 35140 

PLAY=1 

IF AS= U # 1 ' THEN GOTO 35500 

GOTO 35030 

IF PLAY=1 THEN GOTO 29000 

GOTO 29030 



Ah or a una con 
'tablero*. 



MERGE' la subr utina de 
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Duelo al ajedrez 




Afedtei contra/otto por a! Micro 

Es posrble que a muchos les sorprends saber que. antes de que 
llegara fa era de los ordenadores y del programs de microordana- 
dor, sb jug aba al ajedrez con dos seres humanos. 

Va que prooramar un juego de ajedrez «imeNgente° ocuparfa 
en sf mismo un libra entero, nos nemos limitado a hacer un pre- 
grama para uso y disfruie de cualquiera a quien le guste jugar al 
ajedrez o aprender mas sobre 61 Posiblemente, Ins clubs de aje- 
dre; encontraran este programs de alguna ayuda. 

El programs puede utiluiarse simpJemente como sustituto de 
un tablero de ajedrez con sus piezas. 

Los dos jugadores introducen los movimientos en la forma ha- 
bitual en que se hace en ajedrez. Sin embargo, se nan incluido al- 
gunas posibilidades adicionales con sf fin de incrementar las ven- 
tajas respecto del tradicional tablero con sus piezas. 



Di/alu a) afadfttt 09 

El ordenatior controls la validez de lodos los movimientos y 
tola acepta: movimientos del color que juega en ese momenlo, de 
CASillas ocupadas o haeia casillas a las que la pieza movida pueda 
decoder Las piezas que se comen durante el juego se retiran del 
tablero. 

El programa no indica el jaque nl el mate, pero sf permitira que 
liaya jaques Serdn los humanosquienes tengan que darse cuenta. 

La opcidn de comer *al paso* no asid explicitada en el progra- 
ma, pero el jugador puede retrrar la piesta y tomar el peon al mo- 
ver si es precise 

El programa sf contempla el enroque y, por tamo, las posicio- 
nes del rey y la lorra deben ser ias correctas, sin otras piezas en 
medio, pero tambien funcionara la rutins en el caso de que una 
de las dos piezas se haya movido, siempre que en el momenta del 
enroque esten en Is posicion corrects. Tampoco se detecta el mo- 
vi mi en to que pone al rey en jaque, por fo tanto esta y las otras po- 
sibilidades deben ser controls das por los jugadores, 

Una caracteristica important^ es la de poder esiablecer un ta- 
blero que plan tee problem as da ajedrez, o varianies o juegos, ya 
que se pueden almacenar y anabzar paso s paso hasia 100 jugs- 
das. El juego puede reanuderse desde cualquier punto cuando se 
ha grabado prevismente Los peones se convierten automalica- 
menie en reinss cuando Megan a Is Unea adecuada 



Resumen de comandos y opciones 

t. Estabiecer un (ablero, introducir "S" como respuesta a Is 
pregunts "Deseas establecer un tablero?" y a panir da aht intro- 
ducir las piezas una a una pulsando una sola letra. Para avanzar 
pulsar el espacio. Los codigos para las blancas son: 

c = caballo 



p = peon 

r = rey 



t = torra 

d = dama 



a = alfil 



{Las negras igual pero con mayuscufss.) 

Las btsneas se colocan siempre en la parte superior del tablero. 

Retirar una pieza. Pulse "Shtfti-R" e introduzca la posicibn 
de su casilla El juego continua con el siguiente |ugador. 
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3. Enroque. Pulse "Shfft+O" y luego la direccion D, I (derecha 
izquierdaj. 

4. Guardar e! juego. Pulse "Shift+S" y lenga la grabadora en 
postci6n de grabar ya que los mensajes psra hacerlo no pparacen 
en pamaEUi. 

5. Cargar un juego. Pulse "Shift+L" y luego 'PLAY", Asi car- 
gar a el pnmer fichero encontrado. 

6. Reproduccion de partrda paso a paso. Pulse "Shift+3". Con 
fa lecla espaciadora se pase jugada por jugada y con ' Shrft+3 " 
otra yez, se vuelve a I modo normal. 

7. fniciar una partida. Pulsar "Shifl+Q". 

4 g|f| »»»> AJEDREZ ««««« 

10 CALL &BB03: SPEED WRITE 1 

500 SYMBOL 240, 1 , 3, 29, £3, £3. 57. 28. 7 

510 SYMBOL 241,0,120, -£,252,252, 156,56,2 

24 

520 SYMBOL 242.7,7,4,31,16,127,64,127 

530 SYMBOL 24 3 , 224 , 224 , 224 , 248 . 1 20 , 254 , 3 
O, 254 

540 SYMBOL 244, 1 , 19, Si , o : , 10 ?, 55, 27, 15 
350 ^SYMBOL 245, 12S, 200, 138, 2 IS, 182, 236, 2 

560 SYMBOL 246.1.1,7,14,28,26,14,- 
40°4r BDL 247 ' 128, &***&*&&* 120, 120,2 
5B0 SYMBOL 248,0,0,3,7,15,31,= 3 
590 SYMBOL 249,0,192,64,224,176,208,232, 

600 SYMBOL 250,0,0,25,25,25,31,12.15 
610 SYMBOL 251,0,0, 152, 152, 132, 24B, 240,- 

620 SYMBOL 252,0,0,0,0,0,3,7,7 

630 SYMBOL 253,0.0,0,0,0,192,224,224 

640 SYMBOL 254, 5, 4, 3. 15. 8, 31 , 16. 3 I 

.50 SYMBOL 255, 224, 224, 192, 240, 112, 248. 5 
a, —48 

660 PRINT CHRsS (23) *CHRf (1) ; 
1000 CLEAR: GOSUE 21000 
1010 FOR N=I TO 100 
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1020 2*<N, l?*" " 
1030 2*(N,2i=" " 

1040 NEXT N 

1100 GOSUB 20000 

1110 LOGATE 27,1B:PRINT "DESEAS COLOCAR" 

1115 LOCATE 27. 20; PRINT "UN TABLERO"' 1 



1 1 20 A*= INI iEY* : A* -UPPER* < A* > 

1130 IF A$="S" THEN GOSUE 30000: IF CHECK 

=0 THEN GOTO 1170 ELSE GOTO 1100 

1140 IF A*<>"N" THEN GOTO 1120 

1150 GOSUB 22000: GOSUB 23000 

1170 LOCATE 27, IS: PRINT 8PC-tl5»| 

1180 LOCATE 27.20! PRINT SPCU2); 

1190 PRINT CHR*(23J • CHR$ t 1 > ; 

1300 COUNT- 1 

1500 GOSUB 29000 

2000 GOTO 1500 

20000 INK 0.0 :JNK l,2£iINK 2,6: INK 3,3 

20290 PRINT #3, "AJEDREZ. " 

20300 PRINT tt3," " 

20310 LOCATE #3, 2. hi PRINT #3, "DESDE:-" 

20320 LOCATE tt3, 2, 9: PRINT #3, "HAST A: -" 

20500 RETURN 

209S0 REM >>»>>INICIALIZAR<<<«<<«< 

21000 DIM M*(S,8>:DIM X*<8.8) 

21010 DIM Z4U00.2J 

21020 K*=CHR$ (240 ■> +CHR* (241 ) 

21030 K1*"CHR4 <242>+CHR* (243> 

21040 Q*«CHR* (244 ) -CHR* (245) 

21050 □14=CHR*(242)+CHRf (243> 

21060 B*=CHR* (24£)-CHR*<247) 

21070 B1«=CHR*<242>+CHR* (243) 

210Q0 Tfc=CHR*(24B>+CHR*(249) 

21090 Tl$=CHRit(242)+CHR$<243> 

21100 R*wCHR*C250)+CHR*(251) 

21110 R1*=CHR$ (242)+CHR$ (243) 

21120 P$~CHR*<252)+CHR*(253) 

21130 F1*-CHR$(254)+CHRS (255) 

21250 RETURN 

21980 REM »>>>>>COMIENZ0 DEL JUE60<<<<< 

22000 FOR N~l TO 8 

22010 FDR M-l TO B 

22020 M*(N,M)=" " 

22025 X*(N,M>=" " 
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22030 

22040 

22050 

22060 

22070 

220SO 

22090 

22100 

221 10 

22120 

22125 

22130 

22140 

22145 

22150 

22160 

22170 

22130 

222S0 

22980 

Z5000 

25010 

23020 

22030 

23040 

23050 

23060 

R 1 

23070 

23090 

23090 

23100 

23110 

27130 

23140 

23150 

232S0 

23490 

23500 

23510 

23520 

23530 

23540 

23550 

23560 



NEXT H 

NEXT N 

FDR N=l TO S 

MS <2.N >="£"■ !X$ <2.N>="P" 

N*(7,N) = "p ,, ;X*(7,N)=' , p ,, 

NEXT N 

RESTORE 22250 

FOR N=i TO S 

READ At 

m*<i,n>=a* 

X*<l.N>=Af 
A*=LOWER*(A*) 
M*{S,N>=A* 
X*<8,N>=A* 

NEXT N 

FDR N=l JO 100 

Z*(N, 1 )-" ": Zt(N.2)»" " 

NEXT Nl RETURN 

DATA R,T.B,Q,K,B.T,R 

REM <<<<DIBUJO DE LAS FIEZAS<<< 

X=25:Y=390 

FOR N=l TO 8 

FOR «ei TO 3 

C*=M$(N.M) 

IF C*=" " THEN GOTO 23100 

IF £*<"*« THEN C0L=2 ELSE C0L~3 

I r TE5T(X-2,Y+2>=3 THEN COL -COL XO 

PLOT 0-0, COL 
MOVE >I,Y 
GOSUB 23500 
PLOT 0.0,0 

NEXT M 
K=25l V=Y-4B 

RETURN 

REM ******* PIEZA ******** 

C*=UPRER*(Ct> 

IF 2*="K" THEN D*=K*. Dl*=Kl* 

IF C**"a" THEN DS^QS: 01**01* 

IF C* = "B h ' THEN D*-B*iDI*=El* 

IF C$=' T" THEN D*=T* s Dl*=Tl* 

IF C*="R" THEN D*=R*sDl*=Rl* 

IF Ct^'-P" THEN D*~P*.D1*=P1* 



r.OO PRINT #2.D*: 
23610 MOVE X,Y-16 
23620 PRINT #2,D1S; 
23750 RETURN 

24055 IF CAS^l THEN RETURN 
24500 NS-^bCAE^O 
24510 AS=INKEYS 

24520 IF A*="G" THEN OOTO 1000 
24522 IF A*="0 ,H THEN GOSUB 26500 

24524 IF CAS=1 THEN RETURN 

24525 IF A*="5" THEN GRSUB 31000 
24530 IF A*= t, L" THEN OOSUB 32000 

24535 IF A*="#" THEN I* (COUNT, 1 1 ="FF M iGO 

TO 35000 

24540 IF A*="R" THEN GOTO 25500 

24545 A*=UPRER4 (A*) 

24550 IF A*< ,, A" OR A*>"H" THEN GOTO 2451 



24555 N*-A*: SOUND 2, 150,5, ISjPRINT #3,N 

S; 

24560 A*-1HKEV* 

24570 IF A*-:. "1" OR A*>"9" THEN GOTO 2456 



24580 N*-N*+AS: SOUND 2.150.5,15: PRINT 

#3 P A* ; 

24590 RETURN 

24990 REM »»» MUEVE <<«<«<<< 

25000 GOSUB 26000 

2S030 COUNT-COUNT+l 

25040 IF It (COUNT, 1)="FF" THEN GOTO 3550 

O 

25080 SOUND 2.300,75.15 

25090 RQ=S1:C0-S( GOSUB 25200 

25100 M*C51.S)=M*<FI,F> 

25110 IF PLAY=1 AND Fl=l AND M*(Fl,F)="p 

,l THEN frfctFlpF^'q-' 

25120 IF PLAY=2 AND Fl^S AND M*(F1,F> = ' 1 P 

" THEN M4(F1.F>= ,, GT 

25130 R0*=S1.CD=S: GOSUB 25200 

25140 SOUND 2,100,20.15 

25150 RO-Fl.CO-F: GOSUB 25200 

25160 M*'Fi.F>=" " 

25170 RETURN 

25200 X=25sY=390 

25210 FOR N=l TD S 
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25220 
25230 
25240 
25250 
25260 
25270 
252SQ 
25300 
253 1 6 
25320 



FOR M=l TD S 

IF N-RO AND M^CO THEN GOSUB 25300 

X=X+4S ^ 

NEXT M 

X=25; Y=Y~~4B 

NEXT N 

RETURN 

CS-M*<N,M) 

IF C*='- " THEN RETURN 




320 IF C*<"a" ThEH D0L=2 ELSE C0L=7 
25330 IF TEST(X-2,V+2>=3 THEN C0L=C0L XO 



R I 

25340 

25350 

25360 

25430 

254?0 

2S500 

15 

25510 

^5515 

25520 

25525 

25530 



PLOT 0.0,CDL:M0YE X,Y 

GOSUB 23500 

RETURN 

REM 

REM ****** RETIRAR PIEIA «*** 

SOUND 2,300,40,15: SOUND 2.400,50, 



25550 

25560 

25570 

255S0 

25590 

25600 

25610 

25620 

25930 

26000 

26010 

26020 

26030 

26040 

26050 

26060 

26070 

26080 

26100 

26130 



WINDOW #4,35.40,22,24 
PAPER #4,0* PEN #4, 1 
INPUT #4, "Pi era ",FJ 
FSsU/PPEF:*(F*> 
S*-"Al ,f :GOSUB 26000 
GOSUB 23000 
MSCFl.FJ^ 11 » 

2* f COUNT , 1 ) =F* ; 2* ( COUNT , 2 > =F* 
COUNT -»COUNT+ 1 

IF COUNT^IOI THEN C0UNT=1 
CL3 84 
GOSUB 23000 

IF PLAY^i THEN PL AY«2i BQBUB ^80O0 
GOTO 1500 

REM 

F* ASC<LEFT*(F*. m 

F=F-64 

Ft* VAL(RIGHT*<F*,1)> 

Fi=?-Fl 

S= ASC(LEFT*(S*.1>> 
S=S»64 

SI= VAL (RIGHT* <S*. 1) J 

61=9^S1 

RETURN 

F S^CHR S < F+64 > +HEX * { <=-F 1 , l) 

S*=CHR*(S+64>+HEXt(9^Sl, 1) 




CDNVERTIR <«<<« 
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26150 If (COUNT, 1 ) =FS 

26 i 60 2 * C COUNT , 2> *S* 

26170 C0UNT«C0UNT+1 

26180 RETURN 

26480 REM >»»» ENROQUE < ■<«««« 

26500 PRINT #3, "0" i 

26505 SOUND 2. 600, 25, 15: SOUND 2,400,25,1 

5:S0UND 2,200,25.15 

265 1 A*=I NKEY* : A*=UPPER* < A* ) 

26520 IF A*<>"0" AND A*'^"!" THEN GOTO 2 

6510 

26530 PRINT #3, A* 

IF A*="D" THEN A*="R" 

IF A*- "I" THEN A*-"L" 

N*="C"tA«: CAS*1* RETURN 

SS^'AS" : A$=RIGHT$ (F*, 1) : 
000 : CHECK* 1 
26545 IF (PLAY-1 AND A$="L" 

OR <PLAY=1 AND A4="R" 

THEN RETURN 

IF (F'LAY-2 AND A*="L" 

OR (PLAY=2' AND A#^"R" 

THEN RETURN 

IF F-LAY=i AND M*<S,5K>"k 



26532 
2653*1 
26535 
26540 



>"r" > 

>"r") 

26550 

>"R 1 ' i 

> n R") 

26560 

TURN 

26570 

TURN 

26575 



GOSUB 26 



AND M*(B. n < 
AND H*C3,8)< 

AND M* U , 1 ) < 
AND M*<1.B> 



THEN RE 

IF PLAY=2 AND MS < 1 . S)< i "K" THEN RE 
IF PLAY-1 THEN LIN=B ELS 



THEN AU=-1:EN=2 
STEP AU 
' THEN N-EN: RETURN 

S=5+2*AU 

S)~"k lp 



AU~1eEN=7 
E LIN=1 

265B0 IF A*~"L" 

26590 FOR N=5*AU TO EN 

26600 IF M*(LINhNX> h ' 

26610 NEXT N 

26620 F1-LIN:F=5;S1=F1 

26630 GOSUB 23000 

26640 pMfFLF)-" ":M*<S1 

26645 GOSUB 26100 

26650 IF LIN=1 THEN «* (SI . S^K 1 ' 

26655 Z*< COUNT. 1) = "CC" : 2* (COUNT. 2) ^'CC* I 

CO UN T= COUNT +1 

26660 Fl=LlN:F=EN+AU:Si=Fl:S-5+AU 

26670 p|*'<FI^F>* , » ^iH^Sa^S***"***' 

26675 GOSUB 26100 

266S0 IF LIN=1 THEN M* <S1 .S) ="R" 

26685 GOSUB 23000 
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26690 

269B0 

27000 

27010 

27020 

27030 

27040 

27050 

27055 

27060 

27070 

27100 

27110 

27 1 50 

27160 

27170 

271 BO 

27190 

272O0 

27230 

27240 



CHECK-O: RETURN 

REM ;>>>>> VALIDA «««« 

GQSUB 26000 

CHECK-! 

C*=M£ (Pi , f i ; D«»n« i 5 1 , S) 



IF 
IF 
IF 
IF 
IF 
IF 



D$-" " 

D4< "a' 



THEN RETURN 
AND PLAY=2 THEN 
AND PLAY^l THEN 
THEN GOTO 27100 
AND PLAY=1 THEN 
AND PLAV=2 THEN 



RETURN 
RETURN 



CS ^UPPERS <G*J s D4=UPPEft* <D4 J 



RETURN 

RETURN 



D$="K" 

C*="R" 
C*="T" 
Cis-B 1 " 

C*-"l." 

check=o 

IF C*-"K" 



IF 
IF 
IF 
IF 

IF 
IF 
IF 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



RETURN 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 



27300 
27400 
27500 
27600 
27700 
27SO0 



RETURN 



OR C$="p" OR C=S = ,r T" THEN 



TH 



27250 GDSUB 27900 
RETURN 

REM * * * f FEDN * * t 

IF PLAY*1 AND SI >Pl THEN RETURN 

IF PLAY=2 AND Fi>Sl THEN RETURN 

DIS^SGNfSl-Fn*(6l-Fl):IF DIS=1 
EN GOTO 27375 

27330 IP DIS2 THEM RETURN 

IF SOF THEN RETURN 

IF PLAV=2 AND Fl=2 AND N*(3.F>^" " 

GOTO 27385 

IF PLAY=1 AND Fl=7 AND N$f6,F)=" " 

GOTO 27385 

RETURN 

IF B^F AND D*=" " THEN 

IF SGN<S-F>*(S-F>=1 AND 
N GOTO 27385 
273S0 RETURN 

GOTO 27230 

REM * * $ TORRE * * * 

IF F11>S1 AND FOS THEN RETURN 

GOTO 27230 

REM * * * CABALLO * * * 



27260 
27290 
27300 
27310 

27320 



27340 

27350 
THEN 

2^360 
THEN 

27370 
27375 

27377 



27385 
27390 
27400 
27485 
27490 



GOTO 273E5 
D* < '■ -THE 






27SO0 

BO 

27510 

60 

27520 

80 

27330 

BO 

27540 

SO 

27550 

80 

27560 

BO 

27570 

BO 

27575 

27580 

27590 

27600 

276 1 

27620 

276B5 

27690 

27700 

27710 

27720 

27730 

27785 

27790 

27800 

-BJ*<F 

278 B5 

27S90 

* 
27900 
279 1 
27915 
27920 
27925 
27930 
27940 
27950 
27960 
URN 



Dueto i>l itjfidter 77 

IF Sl«F~I+2 AND S^F-i THEN GOTO 275 

IF 8l=Fl+2 AND S=F+l THEN GOTO 275 

IF Si=Fl-2 AND S=F-1 THEN GOTO 275 

IF Sl^Fl-2 AND S=P+1 THEN GOTO 275 

IF S1=F1+1 AND S=F-2 THEN GOTO 275 

IF Sl«Fi+l AND S=F+2 THEN GOTO 275 

IF Bl-Fi-1 AND S=*F-2 THEN GOTO 275 

IF S1=F1-1 AND S=F+Z THEN BDTO 275 

RETURN 

GOTO 27230 

REM * * * ALFIL * * * 

XD=F-St XD-SGN(XD) *XD 

YD-F 1 -S 1 i YD=BGN ( YD > * YD 

IF XDOYD THEN RETURN 

GOTO 27230 

REM * * * REINA * * * 

XD=F~S:XD-S&N<XD) *XD 

YD=F 1 -S 1 : YD=SGN i YD » *YD 

IF XD=YD THEN GOTO 27785 

IF FlOSi AND F;>S THEN RETURN 

GOTO 27230 

REM * * * REY * * * 

IF SGN(F1-S1>*(F1-S1K>1 AND SGNCF 

SKM THEN RETURN 
GOTO 27230 

REM * * * 



CONTROL DE MOVIMIENTD * 



ND=0:MD=O 

IF Fl 81 THEN ND=-1 

IF S1>F1 THEN ND-1 

IF F>S THEN MD=-1 

IF 5>F THEN MD=1 

CN=FliCN-F 

CN=CN+ND : CM=CM+MD 

IF CN=S1 AND CM=S THEN 

IF MSUCN.CMJO" " THEN 



RETURN 

CHECK=lsRET 



... 
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27970 GOTO 27940 

27930 REM »>»» CAMBIAR <«<«« 

28000 GOSUB 24000 

29005 LOCATE #3. 1 . 1 1 ; PRINT *3, " 



THEN GDSUB 26540 ELSE 5 



28010 IF CAS=l 

OSUB 27000 

28020 IF CHECK =0 THEN GOTO 28050 

28030 LOCATE #3, 1 , U : PRINT #3. » MOVIMIEN 

TD NO VALIDD" 

2B040 SOUND 2. 500, 40, 15, 0, 0, 20: GOTO 2800 



O 

28050 

28055 

28060 

2B070 

UNT=I 

28080 

28090 

28980 

29000 

29010 

29020 

29030 

29O40 

299S0 

30000 

30010 

30020 

30030 

30040 

30050 

30130 

30140 

30150 

30160 

30170 

30130 

30190 
30200 
302 1 
30220 
30230 
30490 



PRE-ESTABLECIDA « 



IF K-l THEN GOTO 28090 

2% (COUNT, 1>=F* 

Zt<C0UNT„2)=S* 

COUNT*COUI\rr+l:IF C0UNT=101 THEN CO 

GOSUB 25000 
RETURN 

REM »»» AMB05 JUG ADORES '<<<<<< 

PLAY-1 

GOSUB 23000 

PLAY-2 

GOSUB 28000 

RETURN 

REM >» JUGADA 

X=25:Y=390 

FOR N=i TG 3 

FOR M-l TO 3 

SOUND 2.250,20.15 

M*(N,M>=" "eXetN.M> = " " 

GOSUB 70500 

PLOT 0*0,0 

X=X+48 

NEXT M 

X--=25sY-Y-48 

NEXT N 

LOCATE 27. IB: PRINT "ESTfi BIEN 

LOCATE 27. 20: PRINT SPC(14) 

A*= I NKE Y* : A*-UPPER* < A # > 

IF Ai^S' 1 THEN CHECF=0: RETURN 

IF At= ll N 11 THEN CHECKS 1: RETURN 

GOTO 30200 

REM * * * * INTRODUCE * * g 
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PLOT 0,0,2 

MOVE K,Y: PRINT K2,"^"S 

Dl^ 1NKEY*: Ct ^UPPERS <D$> 

IF D*= "" THEN GOTO 30520 

GOSUB 35600 

IF D*-"" THEN GOTO 30520 
Cft=UFPER*tD«) 
PLOT 0,0,2 
30350 MOVE X,Y; PRINT «2,— "; 
30560 IF C*O l 'P" AND C*0"N" 
AND C*O"0 ,h AND D*0*K* AND 
N RETURN 
30570 SOUND 2,100,20,15 

IF D*-"n" THEN DM"t" 
IF D*="N" THEN D*="T" 
M*(N„M)=D* 
XS(N,M>=°D* 

C*=E* ««, ~ 

IF C»<"a" THEN C0L=2 ELSE GOL-3 

IF T£ST(X-^*Y+2>=3 THEN C0L=COL XO 



30500 
305 1 
30520 

30522 
30525 

30530 
30535 
30540 



AND C*<>"B" 
C*<>"P" THE 



305SO 

30590 

30600 

30605 

30610 

30620 

30630 

R 1 

30640 

30650 

30660 

30670 

31040 

32010 



PLOT 0,0, COL 

MOVE X,Y 

GOSUB 23500 

RETURN 

G*^G*+M* <N,M> "-X4 (N, M> 

OFENIN '"AJEOREZ" 
32O50 Mt(N,N>=LEFT*(Gi,l> : X*(N,M)=MID*tG 

* G *=RIGHT*(G* 7 LEN(G*>-2> 
REM »>»» VOL.'ER A JUGAR <« 
C0UNT=0:PLAY=1 
FOR N=i TD 8: FOR M=l TO 8 
M*<N,M) =XS CN,M> 
NEXT M:NEXT N 
GDSUB 20000 : GOSUB 23000 
COUNT -COUNT +1 
IF **< COUNT, 1)="FF" THEN GOTO 3350 



32060 

34980 

35000 

35010 

35015 

35020 

35025 

35030 

35040 



35050 

35060 

35070 

35075 

O 

3SOB0 



F*=Z* (COUNT, 1) :SS=Z« (COUNT, 2> 



GOSUB 26000: GOSUB 25000 
COUIMT-CQUNT+I 

IF Z* (COUNT. U="CC 

ft**=JNKEY* 



THEN GOTO 3503 
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35090 

35095 

35100 

35110 

O 

35120 

35130 

35135 

0UNT+: 

35140 

35150 

35 1 55 

35160 

35170 

35500 

35510 

35555 

35600 

35610 

35620 

35630 

35640 

35650 

35660 

35&7S 

35680 

35690 

35695 

35700 

35710 

35720 



THEN GOTD 35090 



IF A*=--"" 

FLAY=2 

IF AS="#" THEN GOTO 

IF Z* (COUNT. n="FF" 



THEN GOTO 3550 



9 
Gustavo 



F<t=Z£ iCOUNT. I > :£*=!* (COUNT. 2) 
GOSUB 26000: GO SUB 25000 
IF Z*£CDUNT + I. 1>="CC" THEN COUNTS 
];GOTO 35110 
A*=INKEY<£ 

TF A*-"" THEN GOTO 35140 
PLAY-! 

IF A*="# lk THEN GOTO 35500 
GOTO 35030 

IF PLAY=1 THEN GOTO 1500 
GOSUB 2S0OO:G0TO 1500 
IF C3=':" THEN RETURN 
REM.' » TRADUCE A CASTELLANO <<<< 
HEN D*-"B": RETURN 

D*="b" i RETURN 

DH="R" 

D*= lh ri" 
D$- , 'n": 
D*="K"; 
D*="l. " : 

D*="0"; 



IF 
IF 
IF 
IF 

IF 
IF 
IF 
IF 

IF 
IF 
IF 



Dt="T" 

Dt-'C" 
D*="c" 

D*-"r " 
D$="D" 
D*="d" 

&*-"P" 
D*="p" 



> TRADUCE 

"A" THEN 
THEN 
THEN 

THEN 
THEN 
THEN 
THEN 

THEN 
THEN 
THEN 
THEN 
THEN 



D*="q" 



i RETURN 
: RETURN 
: RETURN 

: RETURN 
t RETURN 

RETURN 
i RETURN 
; RETURN 
: RETURN 

RETURN 



"Z": RETURN 



Ah or a una can 
'tablero ? . 



MERGE' la subrutinai de 




Un juego de estf&tegia flora dos 

Hast a donde yo se, esia as la primers aplicacr6n del »Stmdn* a un 
ordenfldar. pues es un juego que normalmente se praetrca con Id- 
pi; y papal. 

El *Sim6n» foe invenlado pcjr un clnco llnm;ido Gustavo Sim- 
mons y tiemos decidido llamar Gustavo a esta version del juego 
pare ordenador porque crec que suena a ma's important© que su 
pnmo de papel 

Este juego consists en que los jug adores dibujen altemativa- 
mente una llnea entre dos punios. 61 primero que forme un tridn- 
guto de su propio color, partiando de los puntos inlciales, es el per- 
dedor El iruco esta en fnrzar al contraria a dibujar el Lrianoulo 
fatal 



El ordenador se encarga de esiablecer turnos y colores y deci- 
dira" qui^n es el vencedor cuando se forma el tn£ngulo. 
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Gvitaw S3 



Las Ifneas se dibujan moviendo la cruz intermitente en el sen- 
tido contrario o an el mismc de las agujas del reloj, mediants las 
flechas de derecha e izquierda o con un joystick, Cuando la cruz 
esta en el primer punto desde el que debe pactir la JJnea sd!o te- 
nemos que pulsar la tecla "COPY". Un pitido nos indica que el pun- 
to de origan ha sido aceptado. A coniinuacion el cursor salta el 
punto de llegada y cuando se pulsa "COPY" la tfnea se dihuja. Si 
sa interna hacer una IJnea no vdlida sonara un pi lido v habrri que 
volver a dar el punto inicial y final de la Ifnea. 

El juego no puede terminar en empate v en principio no tiene 
ventaja el que empieza a mover, |Este juego es muy bueno para 
desarrollar vistdn espacial! 



i 

2 

iooo 

1100 

1110 

1200 

1300 

1310 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

19980 

20000 

20010 

20020 

20030 

20O40 

20050 

20060 

20070 

200BO 

20090 

20100 

20110 

20120 

20130 



:<«<gustavo>>>>>>>»>> 
REM 

GOSUB 21000 

G05UB 20000 

GOSUB 22000 

GOSUB 26000 

FOR n=l TO 1000 

NEXT n 

IF play-1 THEN win~2 ELSE win=l 

LOCATE 14,24 

IF win=l THEN PEN 2 ELSE PEN 3 

PRINT "GANG EL JUGADOR "* win? 

a4=INKEY* 

IF a*«"" THEN GOTO 1430 

INK 1,26 

GOTO 1100 
<««<<<<<<<«pantalla>>>>>>»> 

INK 0,0 j INK 1, 26s INK 2.6: INK 3,20 
BORDER O: PAPER 0;PEN 1 : MODE 1 
LOCATE 17.lsPRlNT "GUSTAVO" 

LOCATE 16, 2: PRINT " — " 

FOR n-1 TO 6 

PLOT p<n,l),p<n,2).l 

DRAWR 0,8; DRAWR -8,0 

DRAWR 0,-S: DRAWR 8»0 

NEXT n 

LOCATE 1.10 

PEN 2 

PRINT "JUGADOR 1" 

LOCATE 33, 10 

PEN 3 






20140 

20 ISO 

20160 

205OO 

20960 

21000 

21010 

21020 

21030 

21040 

21050 

21060 

21090 

21 100 

21110 

21980 

22000 

22010 

22020 

22030 

22O40 

22050 

22250 

23980 

23000 

23010 

23020 

23030 

23040 

23050 

23060 

23070 

23080 

23090 

23100 

23120 

23150 

239G0 

24000 

24010 
24020 
24030 

24040 
24050 



PRINT "JUGADOR 2" 

TAG It3 

PRINT CHR*<23) aCHRSQ): 

RETURN 

'<<<<<<<<<< inicializar »»»>»» 

DIM p(6,2) 

RESTORE 21000 

FOR n = l TO 6 

READ p(n, 1> 

READ p(n,2) 

NEXT n 

DIN d(6»6> 

RETURN 

DATA 320,300,440,240,440,110 

DATA 320,50,200,110,200.240 

'<<<<<<<<<romienzo juego >>»»» 



FOR n-1 TO 6 

FOR m=l TO 6 

d (n, m> -0 

IF n-m THEN dCn,m)="3 

NEXT m 

NEXT n 

RETURN 

*<<<<«<<<<mando*>>>>»>>>>>»» 

le=0:ri=0;f i=0 

a-JOY(O) 

b^JOYU) 

a=a OR b 

IF (a AND 

IF (a AND 

IF (e AND 

a*=INKEYS 

IF a*=CHR$<242) THEN 

IF a*-CHR*(243> THEN 

IF a*=CHR*(224> THEN 

FOR d=1 TO SOsNEXT p 

RETURN 

'<^<<<<<<niPvimiento>>»»»»»> 

paint^l:IF play=l THEN 

PLOT 0.0,2 ELSE PLOT 0,0,3 

MOVE p (point, 1 > -10, p (point, 2) +10 

PRINT #3,CHR$<159) ; 

GDSUB 23000 

IF fi = l THEN GOTO 24150 

MOVE p (point, l)-10,p (point. 2)+l0 



4) =4 THEN le=l 
8) =8 THEN n = l 

16)=16 THEN fii 



le=l 
ri^l 
■Fi»l 
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Gustavo B5 



24060 
24070 
24080 

24090 

24100 

24120 

2*150 

24160 

24170 

24130 

24190 

2420O 

24210 

24220 

24230 

24250 

249S0 

25600 



25010 
25020 
2503O 
25035 
25040 

25050 
25060 
25070 
25080 

25090 
25100 

25110 

25130 

25190 
25200 



25210 
259B0 
26000 
26010 
26020 
26030 
26040 



PRINT #3,CHR*«159> j 

IF i e=l THEN paint=DOint-l 

IF ri=l THEN poi nt=poi nt + i 

IE points? THEN point=l 

IF point-0 THEN point=6 

GOTO 24010 

SOUND 2,200,50,15 

FOR w=l TO 300 

b*-INKEY$ 

NEXT w 

RETURN 

MOVE p(fr Oil n-I0,p<fr B ,2> + 10 
PRINT #3.CHR*(159) ; 
MOVE P Cries, 1 ) -10, pCdes. 2) +10 
RRINT #3.CHRt U59) ; 

RETURN 

<turno>»»»>»» >>>> 
GQSUB 24000 
■fro-point 

GOSUEf 24000 

tle= n ooint 
GOSUB 24000 

GOTO^W ° R ntttmWWm 

PLOT pffro, IKpffro^! 

DRAW p(des, U »p(d@s,2) 

d Cries, fro) =play 

s*(frd,dea)^pi«y 

FOR n=l TD 6 

IF d Cdes^nJ^play AND d<n 

THEN dead=l: GQSUB 27000 

IF d(rie£, n >=play AND d Cn 

THEN dead-liGQSUE 27000 

NEXT n 

RETURN 

BOUND 2,200.20.15- 

SOUND 2,300,20.15: 

SOUND 2,400,40,15 

GOTO 25000 

dead=0: INI' 2.6,24 
play=l:GOSUB 25000 

INK 2,6 

IF dpad-1 THEN RETURN 

INK 3.20, It 



■fro) =pl ay 
fro>orplay 



26050 play»2i&0SU& 25000 

26060 IF dead-1 THEN RETURN 

26070 INK 3,20 

260B0 GOTO 26000 

26980 *<<«<<< «<<highlignt »>»»>» 

27000 PRINT CHR*<23> ;CHR*CO>; 

27005 INK 1,8,15: INK 2, 6s INK 3,20 

27010 PLOT ptfro,l),p(fra,2) , 1 

27020 DRAW p (n > 1> , p <n, 2) 

27030 DRAW p Cdes, 1 > , p <des, 2) 

27040 DRAW p ( + ro, 1 > ,p ChFtd, 2) 

27O50 PRINT CHR* C23) i CHR* ( 1) ; 

27060 FOR s=200 TO 1 STEP -1 

27070 SOUND 2,s,l, 15 

27080 NEXT a 

27100 RETURN 






10 
Derby con dados 




Mueve ef cubil&te 

Este es el primem de ires juegos de dados. Los otros dos son »0jos 
de serpjente* y -Craps-. Todos comparten las mismas subrutinas 
principals y se orrece un menu para elegirjuego. Asf, tendremos 
sn un programs un bonito conjunto de ires juagos de dados y un 
monton de tiempo de leeleo ahorrado. 

-Derby con dados- Simula una can-era de cabal los cuyo avarice 
es proportional al total obtenido en el lan*amiento de los dados. 
Poeden jugar de dos a euatro jug ad ores y sa incorpora la curiosi- 
dad de on cubilate que se agita 

La tecla "COPY" sirve para mover el cubilete y para fanzar los 
dados. Asl, cada jugador puade agitar libremente el cubilate du- 
rante a I t tempo que desee. 

Las figuras que representan a los caballos corran hasta que 
hav,un vencedor, pero este no sa determine hasta que haya tirado 
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til ultimo de esa ronda. De ahf que algunas veces haya que recu- 
rrir a la foto instantdnea. 

Con "Shift+F" vuelvo al menu y dasde a IN puedo seleccionar 
otro de los ires juegos. 

Notas para el tecleo: los tres juegos que siguen usan la misma 
Dtibrutina llamada "Dadorama", por lo tanto es conveniente le- 
cluorla en primer lugar y grabarla por separado, luego pueden irse 
onadiendo los juegos uno a uno, Naturalmente no se podrS alegir 
un juego del menu que no se liubiera tecieado previamente 

i , «<«<<<<«dicBrama>»»>»>>»> 

2 REM 

100 ENV 1-1,-5,10,1,5,5 

500 GOSUB 22000 

1000 GOBUB 20000: FEN 2 

1010 LOCATE 1,3: PEN 3: 

PRINT "l>Derby ds dados" 
1020 LOCATE 4.6 s PEN 3: 

PRINT "2>Qjos de serpiente" 
1030 LOCATE 1.9: PEN 4:FRINT "3>Dados" 
1050 a*=INKEY*:lF a*="" THEN GOTO 1050 
1060 SOUND 2.200.25,15 
1070 IF a*="l" THEN GOTO 40000 
1072 IF a*="2" THEN GOTO 50000 
1074 IF a*="3" THEN GOTO £0000 
1100 GOTO 1050 
2000 FEN S: LOCATE 4,10: 

PRINT "Fulsa una tenia." 
2010 a*=INKEY*;IF a*-"" THEN GOTO 2010 
2030 GOTO 1000 

199B0 ' :<<<<<<<<<<<pantalla>>»»»»> 
20000 RESTORE 20000 
20010 FOR n-0 TO 15 
20020 READ a 
20030 INK n,a 
20040 NEXT n 

20050 DATA 0,26,13,2,6,24,20,3 
20060 DATA 8,0,0,0,0,0,0,0 
20070 PAPER 0:FEN i : BORDER 0:MODE 
2O0B0 PRINT CHR*<23) ;CHR*<0) ; 
20090 PLOT 10. 10,1: DRAW 629,10s 

DRAW 629, 190s DRAW 10,190: 

DRAW 10,10 
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20100 PLOT 0,0, 1: DRAW £39 .Oi DRAW 639.200 

:DRAW 0,200: DRAW 0,0 
20110 PLOT 40,40, 13a DRAW 80,30: 

DRAW 120,30;DRAW 160,40 
20120 DRAW 130, 160: DRAW 100,155: 

DRAW 70,160:DRAW 40,40 
20130 PLOT 130. 160 j DRAW 100,165; 

DRAW 70, 160 
20150 PLOT 50,45, 12s DRAW 90,35: 

DRAW 130, 35: DRAW 170,45 
20160 DRAW 140, 165: DRAW 110,160: 

DRAW SO, 165: DRAW 50,45 
20170 PLOT 140,165:DRAW 110,170t 

DRAW SO. 165 
20180 PLOT 180,40, 11 : DRAW 100,30: 

DRAW 185. HO: DRAW 195,150 
20190 DRAW 205, 110; DRAW 200,80: 

DRAW 1B0.40 
20200 DRAW 325, 45: DRAW 335,75: 

DRAW 330. 105: DRAW 195.150 
20210 PLOT 60.50, 15: DRAW 60, BO: 

DRAW 100, 80: DRAW 100, 50: DRAW 60,30 
20220 PLOT 110.50, 15: DRAW 110.80: 
DRAW 150, SO: DRAW 150,50: 
DRAW 110,50 
20230 PLOT 60. SO: DRAW 80, 90: DRAW 120.90: 

DRAW 100,80 
20240 PLOT 110. SO: DRAW 130,90: 
DRAW 170, 90: DRAW 170,60: 
DRAW 150,50 
20250 PLOT 170, 90: DRAW 150. SO 
20500 RETURN 

20980 ' ;«<«««ruido»»»»»»»»s 
21000 GOSUB 20090 
21010 INK 11.0: INK 15,0 
21020 INK 13,24: INK 12.0 
21030 FOR q=l TO 25: NEXT q 
21040 SOUND 1,200,1,15 
21050 INK 12,24:INK 13,0 
21060 FOR g=l TO 25: NEXT q 
21070 SOUND 1,100,1,15 
21160 dl==INT<RNDU>*6)+l 
21170 d2=INT<RND<l?*6>+l 
21190 a $-iNKEYf:lF a *="" THEN 21010 
21200 INK 13.0HNK 12,0 
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21210 


INK 11,24: INK 15,20 




21220 


SOUND 2, 150.25, 15 




21230 


ch=dl:G05U8 21400 




21240 


IF sU)=l THEN RLOT 


70,72 


21250 


IF S<2>=1 THEN PLOT 


70,65 


21260 


IF s(3)=l THEN PLOT 


70,58 


21270 


IF s(4>-l THEN PLOT 


95,72 


212S0 


IF 5(55=1 THEN PLOT 


95.65 


21290 


IF S<65-1 THEN PLOT 


95, 5S 


21300 


IF 5<7)=l THEN PLOT 


82,65 


21310 


ch=d2:G0SUB 21400 




21320 


IF s<l)=l THEN PLOT 


118,72 


21330 


IF s<2)-l THEN PLOT 


1 IB, 65 


21340 


IF sC3>=l THEN PLOT 


118,58 


2 1 350 


IF b(4>-1 THEN PLOT 


140.72 


21360 


IF s(5)=l THEN RLOT 


140.65 


21370 


IF s<6>=1 THEN PLOT 


140. SB 


213S0 


IF s £7) -1 THEN PLOT 


12S, 65 


21390 


RETURN 




21400 


IF ch=0 THEN ch=l 




21405 


IF ch=l THEN RESTORE 21500 


21410 


IF fzb-2 THEN RESTORE 21510 


21420 


IF ch=3 THEN RESTORE 21520 


21430 


IF ch=4 THEN RESTORE 21530 


21440 


IF ch-5 THEN RESTORE 21540 


21450 


IF ch=6 THEN RESTORE 21550 


21460 


FOR n-1 TO 7 




21470 


READ s(n) :NEXT n 




214S0 


RETURN 




21500 


DATA 0.0,0,0,0,0, 1 




21510 


DATA 1.0,0,0,0,1,0 




21520 


DATA 0,0, 1, 1,0,0, 1 




21530 


DATA 1,0,1,1,0,1,0 




21540 


DATA 1,0,1,1,0,1,1 




21550 


DATA 1,1,1,1,1.1,0 




219S0 


? <<<<<<<<<<<inicial 


iz&r>»>»»» 


22000 


DIM B,<7) :DIM pC4,3) 


sDIM o<4) 


22050 


RETURN 




22480 


'<<<<<<<«<«! impiar >>;>»>>>>? 


22500 


LOCATE 1, 1 




22510 


FOR n=i TO 240 




22520 


PRINT " ": 




22530 


SOUND 2.24l-n,l,15 




22540 


NEXT n 




225B0 


LOCATE 1,1: RETURN 





90 Juegos sfinsHCitmahs para A MSTRA D 



2 2 9 SO 
23000 
23010 

23030 
23040 



23050 
23060 
23070 
23080 
23090 
23100 
23110 
23120 
23130 
23140 
23150 
23250 



* <«<<«<<<< jugadQres>> >»»»>» 

GOSUB 22500 

PRINT "JUGADORES 7 (2-4)" 

a*-INKEY* 

IF a*<"2" OR a«v>4" THEN 23020 

SOUND 2. 300, 25. 15: 

SOUND 2,200,25, 15: 

SOUND 2,100,25. 15 

GOSUB 22500 

FOR n=l TO 4 

p < n , 1 ) n$ 

NEXT n 

olay^VALlat) 

FOR n=l TO play 

o tn>=l 

NEXT n 

FOR q=n TO 4 

a <q)=0 

NEXT q 

RETURN 



39980 r < «««««dorb*'»»»»»»»- 

40000 GOSUB 23000 

40010 FDR n=l TO 4 

40020 pCn,l>«=B:p<n.2)^3B4-n*32 

40030 NEXT ft 

40035 PEN 6 

40040 RESTORE 40100 

40050 FOR n-l TO 12 

40052 IF n=4 THEN PEN 3 

40054 IF n=10 THEN PEN 6 

40060 READ a 

40070 LOCATE 20, h 

400B0 PRINT CHR*(a>: 

40090 NEXT n 

40100 DATA 235, 149,149, 149,77*69,94,65, 1 

49, 149. 149,191 

40150 GOSUB 49000 

40200 FOR w=l TO play 

40204 PEN w+i 

40210 LDCATE 13,15:PRINT 

40220 LOCATE 15. 17: PRINT 

40230 SOUND 2 , 200 , 50 , 1 5 

40240 a*=INKEY* 

40250 IF a*="" THEN GOTO 4024O 



"JUGADOR"- 
H 
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40255 IF a*-"F" THEN RUN 

40260 PLOT 0,0,0: GOSUB 21230 

40270 GOSUB 21000 

40275 FOR d- 1 TO <dl+d2)*2 

402B0 SOUND 2, 400, 1 , 15: PRINT CHR*(23)|| 

CHR* ( 1 > i i GOSUB 49000 
40290 p C w, 1 > -p ( w , 1 ) +4 
40300 SOUND 2. 200. 1 , 15: GOSUB 49000: 

PRINT CHRS(23}sCHft*<0) ; 
40310 NEXT d 
40350 NEXT w 
40360 win=0 
40370 FOR n = l TO 4 
403B0 IF win>0 THEN GOTO 40400 
40390 IF p(n,U>570 THEN uin=n 
40400 NEXT n 

40410 IF win^O THEN GOTO 40200 
40450 GOSUB 22500 

40460 PRINT u GANO EL JUGADDR ":win; 
40500 RESTORE 40600 
40510 FOR n=l TO 13 
40520 READ a.b 
40530 SOUND 2,a,b, 15,1,0 
40540 NEXT n 
40590 GOTO 2000 

40600 DATA 319,50, 2B4, 20, 253, 20, 239, 20 
40610 DATA 253,20,264,20,319,50,319,10 
40620 DATA 284,20,253,20,239,20,253,20 
40630 DATA 2B4,20 
49000 FUR n=»l TO 4 
49010 TAG #1 
49020 PLOT O,0,rH-l 
4903O MOVE p4n,l),p(n,2) 
49040 PRINT #1 ,CHR* (234) ,; 
49050 TAGOFF 
49060 NEXT n 
49070 PLOT 0,0,1 
49 080 RETURN 
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/Suenatt fas dados/ 

Este es el segundo de los tresjuegos de dados. Debe introduce 
el -Derby de dados* primero y este e cominuacidn. Las instruccfo- 
nes para ianzar ei dado son fas mrsmas. 

Puedan jugar de dos a cuatro jugadores e incluve apuestas. Af 
principle se determine el dinero que hay que conseguir para ven- 
eer, puede ser entre 40 y 400 £. La banca comienza sin dinero 

Cada jugador tira sus dados, si saca un doble entonces gana 
ei dinero de la banca. Si saca los .Ojos da la serpiente^dos unos) 
entonces se Neva el doble del total acumuiado en bancs, Cuando 
la bancs paga se queda a cero. 

Despues de cada ronda ia banca recibe 5 6 10 £ dependiendo 
de si se establecieron 200 6 400 £ como tope necesario para ven- 
eer en la partida. 

El juego termina cuando un jugador alcanza este cantidad. Po- 
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tlrla ser interesante cambiar las cantidades recibidas por la bence 
i ipues de cada ronda para que cuando alguian gane el fondo 
tile sea mayor. 



4 < ?<?B0 
50000 
50010 

50020 

50030 

50040 

50050 
50060 

50070 
50OSO 
30090 

50100 

50110 

50150 

50170 
501 BO 
50 1 90 
50195 

50200 

50210 
50220 

50230 

50240 

50500 
50510 
50515 
50540 

50550 
50560 
50570 



PI 411 



*«<<<<<<OjD5 de 5erpiente>»»» 

GGSUE! 23000 

WINDOW *5. 1,20,9, 11 : PEN #5,2 

PRINT 

" Pan la puntuacion ganadora 7" 

INPUT #5.1im:IF limMOO OR lim<40 

THEN GOTO 50000 

upda-5: GOSUB 22500: 

IF lim>200 THEN upda=10 

PEN 2:L0CATE 3,1:PRINT "1" 

PEN 3: LOCATE 8,1: PRINT 

PEN 4: LOCATE 13,1s PRINT 

PEN 5: LOCATE 18, 1 I PRINT 

PEN hi LOCATE 1,2: 

PRINT STRING* {20, 45); 

PEN 6: LOCATE 1, 12s 

PRINT STRING* (20, 45) ; 

PEN 8: LOCATE 1,8: 

PRINT STRINGS (20. 45) ; 

kit=0 

ki t=kit+upda 

per = l 

PQR n=l TO 4: LOCATE n*5~4,4 

PRINT p(n, 1) :NEXT n 

PEN per+1: LOCATE 13,15: 

PRINT "JUGADGR" 

LOCATE 15, 17 3 PR I NT per 

GOSUB 50500: 

IF p (per, 1 J 
per-per+1 i 

IF per >p lay 
GOTO 50190 

a$-INKEY$ 

IF a*-"" THEN GOTO 50500 

IF a4="F" THEN RUN 

CLS tt3: 

PRINT #5, "El banco tiene u :kit 

PLOT 0,0.O:GGSUB 21230 

GOSUB 21000 

IF dl-1 AND d2=l THEN GOSUB 50600 



■lim THEN GOTO 55000 



THEN GOTO 30170 
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IF dl=r32 AND dlOi THEN 
GOBUB 50700 
RETURN 

SOUND 2,300,25, l5i 
SOUND 2.200,25,15 
50610 SOUND 2.100,25,15: 
SDUND 2,300,25,15 
p (per, 1) =p (per, l)+kit*2 



5O5S0 

50590 
50600 



50620 
50630 

50640 
50700 



l;it=0 

RETURN 

SOUND 2, 400, 25, 15 J 

I Z 



SOUND 2,200,50, 15 
' SOUND 2,400,25, IS: 
BOUND 2, 100,50, 15 
p<per, l)=p (per, U+kii 



50720 
50730 
50740 
55000 
55010 



p (per, 
kit=*0; 
RETURN 
win-per 
SOTO 40 430 



12 
Dados 
(Craps) 




j..,y IsniBt 

Ya tenemos aqul la versidn para ordenador de un juego de dados 
emericano car acta rfstico de las pel feu las de pistoleros y de algu- 
nos programas de televisibn. 

Lob jugedares, de dos a cuatro, pueden imaginar qua estan en 
Las Vegas par cortesJa de la casa Amstrad. 

Ceda jugadar parte con 10Q £ (o d6lBres si se le quiere dar mas 
realismo) y cuando le toca el turno hace su apuesta con un tope 
de la cantidad que tierte. Aqul es donde empieza la diversi6n. 

Si sale un 7 d un 11 en primer lugar, el jugador recupera su 
apuesta y gana otro tanto, pero si el numero as 2, 3 6 1 2 pierde 
su turno y el dinero. Cualquter otro numero es un *tantoi. Estas 
son, pues, todas las pasibilidades. 

El jugador continua tirando para alcanzar et tanto, pagar lo que 
ha perdido o recibir su dinero y dejar paso al siguiente. 
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Si un jugador pierde todo su dinero debe abandonar el juago. 
El ultimo que quede sera el ganador. 

Pulsando "Shifi+S" se vuelve al menu. 

Es necesario hataer tecleado previamertte al programa "Derbv 
con dados" ya que se utifizan algunas de sus subrutinas. 



599S0 
60000 
£0010 
60020 
60030 
60040 
6005.* 

60060 

60065 



<<<<«<dados>>>»>>>>>»>» 

GOSUB 23000 

PEN 2i LOCATE 3.1: PRINT "1" 
3:L0CATE S.l: PRINT "2" 
4; LOCATE 13.1: PRINT "3" 
5:L0CATE IB, It PRINT "4" 
6: LOCATE U2j 

PRINT STRING* t 20, 45 >; 

F'EN £: LOCATE 1.12! 

PRINT 5TRIN6»<20<45) ; 

PEN 9: LOCATE 1,8: 

PRINT STRING* (20,45) j 



9EN 

PEN 
PEN 
PEN 



60070 


WINDOW #5, 1,20,9. 1 1 : PEN #5,2 


60090 


FDR n=l TO 4 


60090 


pfn, 1>**100 


60100 


NEXT n 


60150 


FOR w=l TO play 


60160 


FOR n = l TO 4 


60170 


LDCATE n*5~4,4:FRlNT ptn.l) 


60180 


NEXT n 


601 B5 


IF ptw.lXl THEN GOTO 60500 


60 1 90 


PRINT #5, "Apuesta del juqadar";w; 



60200 



60240 
60250 
60260 
60270 

60275 

6O2B0 
60290 
60295 
60296 

60297 



INPUT #5. bet: 

IF bet^l OR bet>p!w,l) THEN 

SOUND 2, 300, 50, 15: GOTO 60200 

PLOT 0.0,0: GOSUB 21230 

GOSUB 21000 

tot=dl+d2 

IF tot -1 OR tot =11 THEN GOTO 61000 

IF tot =2 OR tot^S OR tot = 12 THEN 

GOTO 620O0 

point=tot 

PRINT #5,"Tira etra ve; . . . " 

a*=INKEY*: IF a*=" " THEN GOTO 60295 

IF a*="F" THEN RUN 

PLOT 0,0,0: GOSUB 21230 



Dados ftropt) a f 



60300 
603 1 
60320 
60330 

60340 

60500 

6O505 

605 1 

60520 

60530 

60535 

60540 

60550 

60560 

60570 

60590 

60590 

60600 

60610 

61000 



61010 
61015 

61020 
61030 
62000 



62010 
62015 
62020 
62030 



GOSUB 21000 

tot=dl+d2 

IF tut=point THEN GOTO 61000 

IF tot -7 THEN GOTO 62000 

GOTO 60290 

NEXT w 

■f 1 3g=0: con^O 

FOR'n=l TO play 

IF con=l THEN GOTO 60540 

IF p<n,l)>0 AND Tlag=l THEN con-1 

IF p(n,l>>0 THEN +lag=l 

NEXT n 

1F con =l THEN GOTO 60150 

win=0 

FOR n-1 TO play 

IF winOO THEN GOTO 60600 

IF p<n, 1) >0 THEN win=n 

NEXT n 

GOTO 4O450 

CLS #5: SOUND 2,300.25,15: 

SOUND 2,200,25,15: 

SOUND 2. 100,40,15 

PRINT *t5, " Ganaste !" 

FOR V»l TO 2000: NEXT y 

p(w, l>=ptw, U+bet 

GOTO 60500 

CLS #5: SOUND 2,100,25, I5i 

SOUND 2 , 200 , 25 , 1 5 : 

SOUND 2,400,40.15 

PRINT *5. M Perdiate !.» 

FOR v=l TO 2000: NEXT y 
p(w, il=p (w, l}-bet 
GOTO 60500 
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Un par ds cartas puede hacer softer ia banca 

Esta as una version para ordenador del eonoddo juego de cartas 
La banca comienza con 500 £ v cada jugador con 100£ Puede ha^ 
ber hasta do £ jugadores contra la banca y el objetivo es obtener 
21 puntos. as dear black-jack, 

h™™ d \ UFla CSrt \ boca arrii >* & m* jugador y una tapada a la 
banca enrcnces se hacen fas apuestas. Despues Se da una segun- 
da carta y cada jugador hene varias opcicrtes cuando le toca 

Puisando y, si la soma de ambas cartas as igual o mayor 
que 16, se puede pasar. 

Puisando "C" sa puede pedir otra carta. 

es b P uenr d ° " D " " ^ " ^^ - " n ° piensa que su >»»*«* 

"El valor del as puede ser 1 u 1 1, a elagir, en funcidn da las de- 
mas cartas. El resto de las cartas valen segun su numero excepto 
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las figures, que valen 10 puntos. Cuando uno se pesa de 21 pier- 
de. Una vez que han terminado los dos jugadores es el turno de 
la banca. 

El cnierro para determinar quien gana y quien pierde es el si- 
guiente; ia puntuacidn ma's alfa es black-jack (un as m^s un 10 6 
una figure); despues va la sums de crnco cartas siempre que su 
suma no exceda de 21; luego. cualquier combination de cartas 
que de 21 puntos y, par ultimo, la puntuacidn que mas se aproxi- 
me a 21, en el supuesto de que no se de ninguno de los eases an- 
teriores. Siempre que el resultado da la banca iguale al de un ju- 
gador, gana ella. 

El juego continue hasta que cada jugador ha perdido todo lo 
que tenfo o hasta que salta la banca. Con "Q" se puede reinicia- 
llzar el juego. 

Este prog ra ma compart e Tineas con los juegos de cartas de los 
siguientes capftulos. Es. pues, convenienle grabar a parte las su- 
brutinas comunes a estos prog ra mas. 



"GENERAR BARAJA" 

10000 FDF: suit^l TO 4 

10095 FOR rar = l TO 13 

10010 oac« (suit. car) =CHRS { Eui t+325> 

10015 IF car:ii AND carM THEN 

Da = S fiUit.Ccirlcoacf (suit. car) + 

5TR* (car) 
lOOli IF zarM THEN 

pacl(3uit.car) =&ac? t suit . car J + " A" 
10020 IF car^li THEN 

Dacf: (su.it. car) -pacf (suit* ~ar l + ° J" 
10025 IF car =12 THEN 

DacS ( sui t ■ car ) =oac* f sui t . -ar ) + " Q ,k 
10030 IF car -13 THEN 

oacf (sui t . car > -aac5 (su' t • car } + " K" 
10033 NEXT car 
10040 NEXT suit 
10045 RETURN 

10490 ; < C«**<tt«"*j.«5 mazo>>»>»» 
10500 FDF. n=-l TO 52 
10505 pa(n?-ritav(ri>=l 
10510 NEXT n 
10515 FOR a^l TO 30 



ww vtivywj <H7fi*in.ltHiann. f/HtH SAIYfa /fix u 



10520 nl-lNT4RND(l>*5l>+l 

1Q525 n2=lNT(RND(l) *51>+1 
10330 cc^oaCnl) 
10535 3a(ni>-aa<n2) 
10540 pa(n2i-cc 
10345 NEXT a 
10550 RETURN 

io?»o ' <o; -:■;■;■:; Ldibu tar casrfea»»»»»-; 

10°95 PRINT CHR*':24): 

11000 LOCATE c;;-l,cy 

11005 F'APER OiPEN 1: PR INT CHR* (230);; 

FOR --1 TD 5s PRINT CHR#(224>; : 

NEXT aiPKINT CHR* (231) 
11010 LOCATE e:;~l.ev+l 

11020 PRINT CHR* (234) j s PAPER 1:PEN Qi 
PRINT RlSHT*(o,ac*Csuit.car),2> : 

11021 IP LEFTMBac*( suit, ear) . 1) = 
CHR* (22?) OP 

LEFT* (pac*iErUit,car? . 1 > =CHR? (223) 
THEN PAPER 1 i FEN 2 
ELBE PAPER It PEN O 

11022 PRINT LEFT* lo^c* i suit, car >.!};: 
PAPER OiF'EN liPRINT CHR*U43>( 
CHR* (143) : CHR* (235) 

110SS LOCATE cj:-1.cv+2 

11030 PRINT CHR«'.254> : : FOP. ==1 TO 5: 

PRINT CHP.S (143) :: NEXT z: 

PRINT CHR* (235) 
11035 LOCATE =:;-l,r V +3 
11040 FBI NT CHR*<234) jCHR*<143> ; 

IF LEFT* (pacSKsuit. ear). 1) = 

CHRiMSCT 7 ) OR 

LEFTf (pac^ < suit, car 5 , 1) ^CHR? (22B) 

THEN PAPER 1 ; PEN 2 ELSE PAPER 1 : 

PEN 
11045 PRINT LEFT* ( D act<3uit. car) , 1) ; : 

FEN i : PAPER s PR I NT CNRf ( 1 4 3 > ; 

CHRS ( 1 43 > ; CHR* ( 235 ) 
11050 LOCATE c:.-1.c,h-4 
11055 PRINT CHRS<234> j j FDR ==1 TO 5j 

PRINT CHR* (143) ;: NEXT 2: 

PRINT CHR* (235) 
11060 LOCATE Cii-Ucv+5 
11065 PRINT CHR*(234> :CHRi(l43) ; 
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CHR*<143) ;CHR£< 143) t« F'APER 1 s PEN O 
: PRINT RIEHT* <oacS (suit, car), 2) i : 
PAPER 0:PEN Is PR I NT CHR* (235) 
11070 LOCATE cK-i.cy+6 

11075 PRINT CHR* (233>;:F0R =-1 TO 5; 
FRINT CHR* (225) ;: NEXT :i 
PRINT CHRf (232) 

11076 SOUND 1.100.2 
110SC RETURN 

11170 * .: ; ■;«««dibu jar carta vuelta»> 

11200 LOCATE c;.-l . c .-j PEN 3 

11205 PRINT CHR* (23d) ;: FOR n = l TO 5; 

PRINT CHR* (240) ;i NEXT n: 

PRINT CHR* (237) 
11210 FOR nn-1 TO StLOCATE e:i-l.cy+nn 
11215 PRINT CHR* (242) ;: FOR n=l TO 5: 

PRINT CHR* (244) ti NEXT n: 

PRINT CHR* (2*3) 
11220 NEXT nn 

11225 LOCATE iii-l.cy+ii PRINT CHR* (23?);: 
FOR n^l TD 5: PRINT CHR* (241)*: 
NEXT n: PRINT CHR* (238 J 

11226 sound 1.300,2 
11330 PEN 1: RETURN 

17000 SYMBOL 224.0.255,255.255,255,255.2 
55.255 

17005 SYMBOL 225. 255, 255, 255. 255.255. 255 

( .._ >_. ,J h V' 

17010 SYMBOL 230.0,63,127,127.127,127,12 

7.127 

17015 SYMBOL 231.0,252,254,254,254,254,2 

54 . 254 

17020 SYMBOL 232.254,254,254,254,254,25* 

, 252 . 

17025 SYMBOL 233,127.127.127.127,127,137 

, 63,0 

17030 SYMBOL 234,127.127,127,127,127.127 

, 127,127 

17035 SYMBOL 235.254.254,254*254,254,254 

, 254 , 254 

17040 SYMBOL 236, 0, 63. 106, 85, lOfc, 25,i'0&, 



17045 SYMBOL 237.0.252,170,36,170,36,170 
.96 
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17050 SYMBOL -75,1-0,36.170,86,170,96,25 

17055 SYMBOL 239. 106, B5, 106, S5, 106, 35, S3 

■ O 

17060 SYMBOL =40,0,255,170.95.170,35.170 

* WW 

17065 SYMBOL 241,170,85.170,85.170,35,25 
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SO 



17070 SYMBOL 1 12. 106, 35. 106. 35. 106. S5, 10 
& r 85 

17075 SYMBOL =43.170,86,170.36.170.36,17 
y , 36 

170S0 SYMBOL =44.170.35.170,85,170,85,17 

(J . ss 



1 

2 

3 

4 

_J 

6 

7 

E 

9 

10 

H 

1 = 

13 

15 



21 



23 
24 
25 
30 
35 
40 
42 
45 
46 
50 
51 



DEfint at-i 

DIM w (52 J . i V (53) , pacS (5. 131 , cz <3> 
DIM ex<4},,tv(4? 

DIM rtac (4) ,pl (2> 

DIM plc(3,5) ,bc(5> 

DIM mo (23 , p * f 2) 

SVMEOL AFTER 223 

BOSUB 17000 

GOSUB 11500 

mo < 1 > =100: mo (2 J -100: mc-500 

cc (l>^20[cc <2>=33:cc <3>=6 

ol (l>-i:pl <2)-=l 

ESSUfi 10000 

GDSUE 10500:nocf3)=0 

CLS: IF np-1 THEN Dl <2>=0 

IF 01(11=0 AND pl<2)~0 THEN 22000 

IF 01(11=0 THEN be(l>=0 

IF pi (2>=0 THEN be(2>=0 

GDBUB 12000 

at (11-15: cji (2>=23 

cy<l)~5:cv<2>=-5 

bii-2:bv=5 

GOSUB 13500 

FOR q = l TO np 

IF Dl iQ;=0 THEN 55 

GOSUB 14000 

GOSUB 13000 



53 
56 
57 
60 
65 
66 
70 
75 
76 

•7-7 

BO 
81 
35 
90 
91 

QJ-. 



94 



100 

105 
HO 
111 
116 
130 
135 



136 

137 

140 
145 

147 



131 
152 

153 



FOR Q-l TO nc 
ev=cv+2:cj>=c>; + l:NEXT q 



THEN 80 



NEXT "I 

cj[*bHS cY*bV! 

G05UB 11200: 

GOSUB 16000 

FOR q-1 TO np: IF Dl fq>=0 

cy=cy (q> : c;;-cj: (q> 

cy p cv+2 : cil -cm + 1 

GOSUB 16500 

GOSUB 18000 

=;:\a)=ci;7. 

NEXT q 

c;;=tt:t + l:cv=bv+2 

GOSUE 1 1 200 

GOBUB 14500 

• <<,;:'. '.[Inqics. de puntuacion 

s^3 

IF np=2 THEN 94 ELSE 

IF 5C(11>21 THEN pit (1> = "L": 

GOTO 150 

IF scUJ>21 AND sc(21>21 THEN 

p* < 1 ) -"L" : p* <2) *"L" sGOTO 150 

cii^bi: : c . =d -■ 

GOSUB 11100 

GOSUB 13000: GQEUB 11000 

bT,=bM + l 

b;:=ct: : by=cy 

q=3:c>: <3> =b; 

IF scC3XiA 

ELSE GOTO 150 

b::~bi; + I : by=by+2i q=3: c;;=b;; : ey*o ,-; 

GOSUB 13000: GOSUB 11000 

GOSUB 19000 

IF nocfilJ-S THEN ISO ELSE GOTO 135 

IF nc = l THEN IF 3c(31<scU) THEN 

GOSUB 11 100: GOTO 136 

IF rd-Z THEN 

IF 5ci3)<3c(n AND sc(13<=21 OR 

scC3J<sc(2) AND sc<2)<-21 THEN 

GOSUB 11 100; GOTO 136 

q=l 

IF Dl (q)*=0 THEN 200 

IF =>c(a>>21 THEN p$ia)="L"i 

GOTO 200 

IF BC{31>21 THEN o*(q)« l, W"i 

GOTO 200 



i : GOSUB 18000 
THEN GUSUB 11100 
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160 

162 



163 
164 

165 



170 

175 

leo 

185 
ISc 



201 
205 

210 

215 

220 

2' 1S; 
230 
2*0 
-— ■ * ^ 
400 
405 
406 
410 
411 
412 



415 
445 

450 
451 



IF nc=5 AND noc«:aJ=5 THEN 

pe<q>-"L"cGOT0 200 

IF noc Co J =5 THEN aS<q)=" , W" : 

GOTO 200 

IF nc=5 THEN a* tql ="L" : GDTO 200 

IF ec: (3) >sc (q) THEN pt k o ? = "L ,h s 

GOTO 200 

IF sc<3>=21 AND nc=2 AND 6c(Q)*H2i 

AND noc(q!=Z THEN oS(a)-"L"; 

GOTO 200 

IF pacta J =5 AND nc^5 THEN 

pE<a)=f ,T W" jGDTO 200 

IF *c(a)=2l AND noc(q)=2 THEN 

p*(q)*"W l, :GOTD 2O0 

IF sc{q5>sc<3> THEN p#(q)="W": 

GOTO 200 

IF sc<a)-sc<3> THEN p5(q) = "[_"- 

GOTO 200 

IF sc.31^t!p) THEN b«(q)="L" 

if np=2 AND q~i THEN a-2:G0T0 151 

IF nq-1 THEN 225 

IF pSCi>="L' J AND p*<2X"L" 

THEN 350 

IF DS!li="W" AND p$<21= n W" 

THEN 500 

IF o* (l>="W Jt AND p$(2>="L" 

THEN 600 

IF a*U)="L" AND p4(2)="W" 

THEN 450 

IF D5{l>="Ui" THEN 400 

IF ptdl^L" THEN 450 

END 

<«««<.< iugadar gana »»»>■>■.. 
mc=mc-be(l) 
moCl)=mo< l)+be< 1 J *2 
GOSUB 23000 
IF mc. I THEN 750 
GOSUB 19000 
LOCATE 1,25; 

PRINT "El jugador gana": 
GOSUB 19500 
GOTO 20 

C<«<banca gana>>>>>>>>>» 
ftic=tric+beU> 
GOSUB 19000: GOSUB 23500 
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-ii^ 



455 
495 
500 
505 

506 
510 
515 
51£ 
520 
545 
550 
551 
553 
554 
555 



560 



566 

570 
595 
600 
605 
610 
6U 
614 
615 
616 
617 



620 
645 

650 
655 
660 
661 



LOCATE 1,25s PRINT "La banca gana": 

GOSUB 19500 

IF moClXI THEN pi U>=0 

GOTO 20 

' ««';<« «arahns gaanan; ; >: ;>, 

mo ( 1) =mo ( 1) +be ( 1 > * 2 

(tio:2>-=niot2>+be<2) *2 

GO BUB 23000 

tuc^mc-be C 1 J -be <2> 

IF mc<l THEN 750 

GOSUB 19000 

GOTO 20 

■ < ';<««<ambcs pi erden >>>>>>>»» 

fnc-mc+be £ 1 ) +be (2> 

GOSUB 19000* GOSUB 23500 

IF mo £1X1 THEN pi <U-0 

IF mo<2Xl THEN pi (2>=0 

IF pl(l)=0 AND ol(2>=l THEN 

LOCATE 1,25: 

PRINT "Pierde el jugador 2" 

IF pi (1)^1 AND pl(2>=0 THEN 
LOCATE l,25i 

PRINT "Pierde el jugador l 1 ' 

IF pi (11=1 AND pl<2>«l THEN 

LOCATE 1,25s 

PRINT "Ambos jugadores pierden" 

GOSUB 19500 

GOTO 20 

*<<«<<<-< jugador 1 gana »»;>>>» 

mc=mc+be(2> 

mo( 15=fno(l)+be(i) *2 

uic=mc-be ( 1 > 

GOSUB 23000 

IF mo (2X1 THEN pi <2>=0 

IF irca THEN 750 

GOSUB 19000 

LOCATE 1,25: 

PRINT "Gana el jugador 1": 

GOSUB 19500 

GOTO 20 

'««<<<< jugadcr 2 gana>>>>>?>>> 

mc=mc+be ( 1 ) 

fiio(2)=mo<2)+beC2)*2 

mc=mc-be <2> 

GOSUB 23000 
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664 

665 

£&6 
667 



670 

745 

750 

755 

760 

anci 

761 

7s5 

770 

775 

?eo 

7S5 

110?*? 
1 1100 



11102 
11103 

1 1 1 04 



IF moUKi THEN pi (1 J =0 

IF mc«l THEN 750 
GOSUB 19000 
LOCATE 1,25: 

PRINT "Sana el juoador 2": 
GOSUB 19500 
GQTd 20 

<. <-:<<<«-sal tsr banca»»»>>>s 
GOSUB 19000 
LOCATE 1,25 
PRINT "Bien hecho.has saltado la b 

GOSUB 23000: GOSUB 23000 

GOSUB 19500 

CLS 

PRINT 'JUGADOR l:":moV.a; 

IF no*=2 THEN PRINT "JUGADOR ^ , -"- 

mo<2) 

GOSUB 19500 

SOTO 10 

*«««« cart a oar a banc a: ■>»:->», 

t=(RND<l)*5i)+l: IF av(t)-0 THEN 

11100; 

av(t>=0:noc(3) =noc J3S*S 
pic C3.lijoc <3> )=t;w=nac (3) 

RETURN 

'<<<•' '-numer a de jug adores .■ > »> 



11490 

11500 NODE 1 i WINDOW' #3^24 ^BTST, 25: 



1 1 50 1 
11505 

11510 

11515 

11520 

1 1 990 

12000 

12005 

12015 

12020 

12025 

12030 

12035 

12045 

12050 



INK 1,26; INK 2. 6s BORDER~0; INK 0.0' 

INK 3,14 

LOCATE 15. lsFRINT "21" 

PRINT: INPUT "1 Q 2 jugadores ■'• jnp 
IF np ,M AND np<>2 THEN 11500 
FOR q = l TO np:pl (q) = l:NE>,'T a 
RETURN 

<<<<<<repartir Lartas, >»» 

FOR q=l TO np 

cl=(RND(l>*5l>+l 

IF av(cl)=0 THEN 12005 

av <q) =o 

Plc(p, l)=cl 

NEXT q 

cl=(RND(l>*5l)+l 

IF av(cl)=0 THEN 12035 

av(cl >-0 



Black Jitck 107 



12055 
12060 
12065 
1 2990 
13000 

13005 
13010 
13015 
13020 

13025 
13490 
13500 



13505 



13510 



13515 



b.c.<l)*el 

nac ( 1 >=*lsnoc<2)=l:nc=l 

RETURN 

*<<<'<<<<<<mirar cartas>>>>>>> 

sui=plc <q. w) /I3:car«plc (q. wl MOD 

13: IF c»rwG THEN car=l3 

IF suiX" THEN suit=l 

5Ult=3 

suit^4 



1 



THEN 
THEN 
THEN 



13520 

13990 

14000 

1 4005 

14015 

14020 

1 4025 

14030 

14035 

14490 

14500 

14501 

14505 

1 4507 



IF SLll 

IF sui 

IF sui 

RETURN 

r '<<<<<<<dibujar panta!la>>>»>> 

LOCATE 1,3: 

PRINT "BANC A' 1 , "JUGADOR 1",: 

IF np=2 THEN PRINT "JUGADOR 2" 

LOCATE 14, 21: PRINT "Apuesta: ,1 : 

IF np-2 THEN LOCATE 27,21: 

PRINT "Apuesta; " 

LOCATE 1,22;PRINT "#"i 

LOCATE 14, 22: PRINT "#": 

IF np=2 THEN LOCATE 27. 22: PRINT "# 

LOCATE 1,21: PRINT "RESERVAS": 

LOCATE 1„ 20: PR I NT "Total:": 

LOCATE 14. 20: PRINT "Total:": 

IF np=Z THEN LOCATE 27,20: 

PRINT "Total : " 

RETURN 

' <;-:<« <\<-:dibu 3 ar 

ch^cm (p> scy=cy <q> 

FOR W"*l TO noc(Q) 

GOSUB 13000 

EGSUB 11000 

cv=CY+2:c;*=p;:-»-ltNEXT w 

LOCATE cc(q^-5,22:PR!NT mo<q> 

RETURN 

»<««<<<<pa5ar »»»»»»»» 

FOR q-1 TO no: 

IF pl(q>=0 THEN 14526 

ex <q)=cn (q>+l 

LOCATE 1,25: FOR n = l TO 39: 

PRINT " "; :NEXT n 

LOCATE 1,25: PRINT "JUGADOR ":q: 

",";iPRINT CHR4C24*: "P":CHR#(24> : 

"ASAP":" "sCHRf (24J ; "C";CHR*<24> ; 



mano>>>>>>» 
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14508 



14510 



14511 
14512 
1451? 
14515 

14520 

14523 
14524 

1 4525 

14526 
14530 
14990 
15000 



15490 
15500 

15505 
15510 

15990 
16000 
16001 
16005 

16O10 

16011 

16012 
16015 
1601c 

16017 
16018 



";CHR*(24J ;"F";CHRt (24); 
; CHR* ( 24 > ; "D " : CHRS < 24 > ; 



"ARTfi" 

PRINT 
.. IN , r . u 

"GBLE" 

a* = lNKEV*s a*=UFPERS <a*> : 

IF a*="p" OR a f="C" OR a*= ,r D 11 OR 

4*=«F« THEN 14511 ELSE C-OTD 14510 

ch=c;< <q) : cv-cy (q> + (2*noc (qJ > 

IF at^'-D" THEN SOTO 2O000 

IF a*="F" THEN END 

IF a*= J, p" AND sc(q)>15 THEN 

GQSUB 150OOich=cj; + 1 :G0TO 14526 
IF a$="C" THEN GOSUB 15500: 

cx»CK*ttc>c <q)=CH (q> + i 

GOSUB 10000 

IF sc(qK21 THEN LOCATE cc<q>, 20: 

PRINT "FUEFWiGQTO 14526 
IF noc(a)- >5 THEN 14510 

NEXT q 

RETURN 

REM 

GOSUB 18000: LOCATE 

PRINT " ". LOCATE 

PRINT -c(q) : RETURN 

'<<<««««G*rt&: 

c=<RND(l > #51) + 1: 

IF av<c)=0 THEN 15500 

av (c)=0:noc<q> =noc <q)+l 

pic (q.noc (q} )=c:«=noc <q) : 
GOSUB 13000: GOSUB 1 1 000 j RETURN 



ccfq>,20: 
cc tq) , 20: 



v\l 



»»» 



LOCATE 2, 22: PRINT mc:FOR 

IF pl<4>=0 THEN 16020 

LOCATE 1,25* FOP. n = l TO 39: 

PRINT " "; (NEXT n 

LOCATE 1,25: PRINT 'MU5AD0R 

"Aputesta '.Hi "; 

INPUT #3,be<q) : 

IF be(qi<l THEN 16005 

IP bs(q)>nc(q) THEN 16005 

LOCATE cc(q) ,21: PR I NT be<q> 

LOCATE cc^qj ,22: PRINT " 

mo ( q > =mo < q > -be < q ) 

LOCATE cc (q> -4, 22: PRINT " 

LOCATE cclqj -5,22: PRINT itotq) 



a=l TO np 



qs 



0" 

j" 

A" 
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16020 NEXT q 

16040 RETURN 

16490 '<««<«<afera nartsZ> ':■■'; » 

16500 c-<RNDU>*5U+l: 
16505 IF av<c)=0 THEN 16500 
16510 pic (q, noc fq> +15 =c: av (c) & 
16515 noc (qi^noc (q)+l 

16520 w=noc(qi : GOSUB 13000s GOSUB 11000 
16525 RETURN 
170S5 RETURN 
17500 GOSUB 18000 
17505 IF sc<q>=21 THEN END 
17510 RETURN 

17990 *««<«fHint.uacion jLigadores >>>>:- 
18000 3c\q) =0; ac=OiFOR at*»l TO nociaisw^z 
■ IS 005 GOSUB 13000: 

IF RIGHT*<pac*l5uit.car> ,2)=" 
DR RIGHT* !oac* (suit, car>,2)=" 
OR RIGHT* (pac$< suit, car J ,2>-" 
THEN sc(q>=sc(cO-HO 
18010 IF RlGHT*(pac*<3uit.car> »2'=" 
THEN 5c^q>-sc(q>+l:G0TG 18020 
18015 sc<q>=ac tq> + 

VAL (RIGHT* (pac$ (suit, car> «2> > 
19020 NEXT z:IF ac>0 THEN GOSUB 1B200 
16021 LOCATE cc <q) , 20:PRINT " ": 

LOCATE cc<q>, 20 6 PRINT sc(q) 
1B025 RETURN 

18190 *■'< :;<<««<ace en mano>>>>>>>>> 
18200 FOR r^l TO ac 
18202 IF sc(cO+U>21 THEN sc (q) =sc <q) +1 

ELSE sc (q>=sc<q)+ll 
1S204 NEXT r 
1B205 GOTO 10021 
19000 LOCATE 1,25: FOR a=l TO 39: 

PRINT " "(iNEJfT a: RETURN 
19500 FOR t=l TO 3000: NEXT t : RETURN 

19990 '«««««do&iar»»>> >»»» 

20000 IF sno<a)<he(q> THEN 14523 

20004 be<a>=be<q) *2 

20005 mo (q)=ir)D<q)-be (a) /2 

20010 GOSUB 15500 

20011 LOCATE cc <q ) , 21 : PRINT " " 

20012 LOCATE cc <q> , 21 : PRINT be<q) 

20013 LDCATE cc <q> -5, 22s PRINT " 
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20014 LOCATE cr <q>-5, 22: PRINT mp(q> 

2002© CK=CX+1jck <q>=c:i <qj+l 

20025 GOTO 14513 

219.90 *«««-: :;<;-f ln de juego> 1 

22000 GOSUB 19000: LOCATE 1.25: 
PRINT " El dinero de torios log , 

ugadores.. s& s.c&bc" 

22001 FOR so=l00 TO 500 STEP 5 

22002 SOUND 1, so. 2: NEXT 3a 
22005 GOSUB 19500: GOTO 10 

22990 «<<<■■■ ■ sooidc g anar ;■■>>>»» 

23000 FOR sa*=300 TO 1O0 STEP -10 

23005 SOUND i.so, 1 

23010 NEXT so 

23015 RETURN 

23490 '«««<«;Bonido peder »»>»>» 

23500 SOUND 1.200,20 

23505 SOUND 1,0, 10 

23510 SOUND 2,500,40 

27515 RETURN 

Ahora una con 'MERGE' la subrutina de 

'generacmn de la karaja 7 . 



14 
La carta mas alta 




Una p&reje no vale nadtt 

Esta es una versidn para ordenador de un popular juego de cartas 
dado a conocer en un programs de tetevisidn. 

Cada jugador corriienza con 150 £ y se dan 11 cartas boca 
abajo. 

Se vuelve la primera de las cartas v se apuesta hasta un total 
maxima del dinero de! jugador. A cc-ntinuacidn el ordenador pre- 
gunta: ^Atta o baja? (A o BJ. Si se acierta, la banca paga una can- 
tidad ioual a 4a apostada, si se falls {incluso si la carta es igual) 
el dinero es para la banca. Con las demas cartas se procede de la 
misma forme y el juego termina cuando se nan vuelto todas las 
cartas. 

La subrutina de "Puntuacid'n maxima" debe encadenarse a la 
de este programa para elevar el nivel de eornpeticidn o simpte- 
mente para anotar las puntua clones obtenidas en sucesivos jue- 
gos. 






• I . 



Jusgns sensamonafos para AMSTRAD 



s.ao ristadas Sb debe [©dear en prrmer lugar fa subrutina "ganerar 

tlna ' Card e l™ ram3 J de ' ^^ Cap[,uJo *° h °™ »• -"bm- 
tina Card -core V a que (e sera" necesaria. 



1 
2 

3 

S 

£ 

9 



11 
12 
15 
20 

25 
30 
35 
37 
40 
45 
50 

70 
71 



7i 

80 

85 

3t 

90 

95 

100 

101 

105 

110 



DIM o a (52K3v(52Kpa C *( 5 ,l3> 

DIM C !! (U),cy(ll).brUl) 
hi=0:garo*="hi-I O " : a ddr ^ 4 ooo 
BORDER "' 

G0SUB 17000 

WINDOW *3. 32. 40, 25. 25 

PEN 1 

PRINT 



"HI - LO' 



"ApostQ" 

"Total : " 
"Hi-puntos" 



LOCATE Id, 17 

GDSUE 10000 

G05UB 10500 

GOSUB 11500 

LOCATE 11, t9 r PRINT 

LOCATE 11, 20: PR I NT 

LOCATE 27, 1?, PRi NT 

tot=150 

be=0 

SOSUB 13500 

GOSUB 14500 

c = l 

c:t-cx (c> :c%'=cyCc) 

GOSUB 13500 

IE c-11 THEN 25000 

olc(l,i)=bc<c) :q=i 

GOSUB 13000: GOSUB 

GOSUB 14000 

GOSUB 15000 

GOSUB 13500 

c;;=cjf Cc**-J J : Cy*ey (c+1 > 

Olc(i,n=bc( c -i-ii. ca ^ =ar 

q-ls n=li GOSUB 13000 

GOSUB 11000 

GOTO^* AND *"""*" ™ EN lt300: 
GDTO^o" AND "' = " B " THEN 1 6500: 



: tM — 1 
1 1 000 
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us 


GOTO 16000 


120 


GOTO 70 


1 1 490 


f < < «« « < < < d i bu j ar cartas) >> > >» 


11500 


RESTORE 11525: FOR a=l TO 11 


11505 


READ cm (a> -cv (a) 


11506 


ck =c: ; C a > : cy=c y t a > 


11510 


GOSUB 11200 


11515 


NEXT a 


11520 


RETURN 


11525 


DATA 2,1, 10, 1, IS, 1.Z&. 1,34, 1 


11530 


DATA 2,9. 10,9, 18.9,26,9,34,=? 


11535 


DATA 2, 17 


1 2990 


'<<<<<<<<<itiirar tdrta»> >>>>»>> 


1 3000 


aui=plc (q , u) /I3i 




car~Dlc(q H w> MOD 13: 




IF car«Q THEN car- 13 


13005 


IF SUi>0 THEN suit*! 


13010 


IF suiM THEN suit =2 


L7015 


IF sui>2 THEN suit=3 


13020 


IF sui>3 THEN suit*=4 


13025 


RETURN 


13490 


f <<<<imprirni r hi , total . apuesta»> 


13500 


LOCATE 17,1?:PRINT " 


13501 


LOCATE 17, 19: PRINT be 


1 3504 


LOCATE 17,20; PRINT » 


13505 


LOCATE 17. 20: PRINT tot 


1350? 


LOCATE 2B,18:PRINT " 


1 35 1 G 


LOCATE 2S.IS:PRINT hi 


13515 


RETURN 


13990 


* <«-:«.«{ aauestas>>>>>>>>>>>>>> 


1 4000 


LOCATE 15. 24s PRINT "Tienes Ptas"; 




tot 


14001 


LOCATE 15,25: 




PRINT "Su acuesta es" 


1 4005 


INPUT #3, be 


14010 


IF be<l OR be>tot THEN 14005 


14015 


tot=tot-be: GOSUB 17500 


14020 


RETURN 


14490 


'««««aenerar carta5»»>»» 


14500 


FOR ami TO 11 


14505 


c-INT(RND(n*51) + l 


145.10 


IF avCc)=0 THEN 14505 


14515 


be iai^oaic) 


14520 


HtV (c>=0 


14525 


NEXT a 
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14570 RETURN 

14W0 '«< UK : :alto/ba iO.»>»»»>>>> 

15000 LOCATE 15. 25: FOR b=l TO 25: 

PRINT " ": :NEXT b 
15005 LOCATE 15, 25: PRINT CHR* (24) ( "A" p 

CHR*t24) ; "lto / "iCHRi(24) i"B"i 

CHRS (24) ; "ajo" 

a*=INKEY*: a* -UPPERS (af ) 



ISO 10 
15015 



IF aS;>"A" AND a*<>"B" THEN 



15010 

i 



15020 RETURN 

15501 LOCATE 15. 24: FDR a*l TO 20: 

PRINT " " ::NEXT a 

15990 ■<<■: ; ■:■[ ■: : herder >>>>>>>>>>>>>>>> 

16000 SOUND 1.300, 20: SOUND 1,0.10 

16010 SOUND 1,500.40 

16020 IF tot-n THEN 26000 

16025 c=c+l:GOT0 70 

16490 ' <« :;:<;<<< ;ganar»»»»»» 

16500 FOR so~500 TO 300 STEP -10 

16505 SOU WD 1. so. 2 t NEXT so 

16510 tot=tot+be*2 

16520 c=c+lsGOTO 70 

17093 SYMBOL 226,56,56.254,254,254,16.56 
,0 

17090 SYMBOL 227,16,56,124,254,124,56,16 
,0 

170=5 SYMBOL 228,108,254,254,254,124,56, 
1^,0 

17100 SYMBOL 229. 16, 56. 124, 254, 254. 16,56 
,0 

17105 MEMORY 3*999: GOSUB 29SOO 

17110 RETURN 

19500 FOR t^l TO 7000: NEXT t : RETURN 

24990 * ««<<■< mas* i mas DuntuacioneE»» 

25000 IF tot>hi THEN hi=,tot 

25005 sc=totiGOSUB 60000 

25010 GOTO 10 

25990 "<«<<.<<«<<sln dinera>»»»» 

26000 LOCATE 1 5, 25 i FOR a-1 TO 25: 

PRINT " ,L : :NEXT a 

26005 LOCATE 15-25;FRINT "Sin blanca !" 

26010 G05UB 19500* GOTO 10 

Ahara Lina con 'MERGE 1 * las. aubrutinas dp 
'entreda de caracteres" , * punt uac ion 
<tia,< inter, y 'generaclan de baraja'. 



15 
Parejas 




Bosca la pareja 

Este es un juego sancillo pero que requiere buena memoria y una 
gran concentraei6n. 

Cada j ugador selecciona dos cartas; st son iguales, entonces 
se le punlua y se las apart a de la palilalia A continuation el si- 
gu iente j ugador tratara de casar otras dos. . El juego termina cuan* 
do no quedan cartas y el ganador es el que haya casado mas 
parejas. 

En algunas varsiones de este juego se permits levantar otras 
dos cartas al j ugador que consigue una pareja, sin embargo, en 
esia varsi6n de 1 2 cartas, as mis divenido que al j ugador no pue- 
da repetir turno. 

Para este juego hace falta el mazo de "microcartas" y la su- 
brutina para barajar, Ambas se pueden cargar con "MERGE" del 
program a anterior. Con este tendremos nuevamente un extenso 
programs que uliliza le memoria ampliamente sin necesidad de ha- 
ber tecteado mas. 
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AqueJios lectores mteresados en eJ incremento de las fondos 
destinados a candad o educacidn, quiza" quieran saber cdmo Fes 
puede ayudar este micro. jS6lo tienen que encender su ordenador 
y cobrar un tanio a sus invitados por e( privilegio de pulsar sus 
reclaal 



I 

2 
10 



50 



BO 

90 

100 

110 

120 

130 



140 

150 

160 

170 

ISO 

1=0 

200 

210 

220 

230 

11295 

1 1300 

11305 

11310 

11315 

11320 

11490 

11500 

11501 

11504 

11505 

LISIO 

11515 



: ■■: c arte ftri t r ac i on : > > > > » 



13) ,cc<35 .sc<2> 

av(52> 

cy(12) 

be £12) 
ac (12) 

223 



CLEAR 

DIM oac* (5 

DIM ps<52> 

DIM c;< (121 

DIN ca(lZ) 

DIM Die (1,2) 

SYMBOL AFTER 

GOSUB 17000 

CLS: GOSUB 10000 

INK 0,0 i BORDER 

sc < 1 ) =0: sc (2>=0 

GOSUB 10000 

GOSUB 10500 

PAPER 0:PEN 3 

GOSUB 11500 

GOSUB 12000 

FOR a=l TO 12: ac <a)=i: NEXT 

WINDOW #3. IB, 40,25,25 

p=l 

GOSUB 14500 

GOSUB 13500 

GOTO 14000 

IF H THEN 

GOTO 190 

"«««<«<<barrar 

LOCATE c:;-l,cy 

FOR v=l TO 7 

LOCATE c;:-l , cy+v-1 : PRINT " ' 

NEXT / 

RETURN 

! :««-1generar carta3>»»» 
RESTORE 11570: FOR a =l TO 12 
ca(a>=l*NEXT a 
FDR a=l TO 12 STEP 2 
READ cl,c2 
c=(RND(lli *11 )+l 
IF ca(c)=0 THEN 11510 






D=2 ELSE p=l 



carta»»»» 



1 1 520 

11525 

11530 

11535 

11540 

11545 

11550 

11555 

11560 

11570 

115S0 

11383 

11590 

1 1990 

12000 

12004 

12005 

12010 

12011 

12015 

12020 

12025 

1 2030 

12035 

12040 

12990 

1 3000 

13005 

13010 
13015 
13020 
13025 
13490 
13500 

13504 
13505 
13510 
13511 
13515 
13520 
1^525 
13530 
13535 



be <c> »cl: c& <c> =0 

c=<RNDU>*ll) + l 

IF ca(c>=0 THEN 11525 

bc<c>=c2:ca(c)=0 

next a 

FDR a»i TO 12 

READ CA ta).c:v<a) 

NEXT a 

RETURN 

DATA 1, 14,2, 15,3. 16,4, 17,5, 18,6,19 

DATA 2, 1, 10, 1, IB. 1.26, 1 

DATA 2,9, 10,9, IB, 9, 26,= 

DATA 2,17,10.17,19.17,26,17 

'«<«««pintar pantal 1 *>»>»>> 

MODE 1:INK 1,26: INK 2,6: INK 3,14 

FOR a=i TO 12 

c;;=c:; <a> !Cy=cv(a) 

GOSUB 11200 

LOCATE c« <a>+l,cv<a)+7:RRINT A 

NEXT a 

LOCATE 

LOCATE 

LOCATE 

LOCATE 

RETURN 

*<<«<<<<<< zmirar car ta> >»»»» 

5u-plc(q,w)/13:car=plc(q.w! MOD 13 

sIF car=0 THEN ear=l3 



33, 3: PRINT "Puntas 1 " 
37. 6: PRINT "Funtos 2" 

32,15:RRINT "JugadDr 1" 
32.17rPRlNT "JugadDr 2" 



THEN 

THEN 
THEN 
THEN 



3UI t=l 
sult-2 
suit=3 
sui t=4 



IF su>0 

IF sliM 

IF 5u>2 

IF «U>3 

RETURN 

? ««««<entrar nunera) >»»»» 

LOCATE 1,25: FDR *P*1 TO 30s 

PRINT " " » a NEXT a 

LOCATE 1,25:PRINT 'Primer num."; 

INPUT 1*3. ni 

IF nl<i OR nl>12 THEN 13505 

IF ac(nl>=0 THEN 13505 

d 1 c < 1 , 1 ) <=be < n 1 > : a = 1 : w= 1 

&05U& 13000s CA-a: (nl ) :cy=cv (nl) 

GOSUB 11000 

LOCATE 1,25* PRINT "Segundo num."; 



INPUT 



*3,n2 
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13540 IF n2<l DR n2>12 THEN 13535 

13341 IF ac<n23=0 THEN 13535 

13545 plcfl,2>=hc<n2>:q=liw«2 

13530 GOSUB 13000: cM-cit (n2>:cy=cy(n2) 

13555 GOSUB 11 000 

13560 RETURN 

13=90 ' <<«<«< -''.comorabar par »»»»> 

14000 q=l:w=l: GOSUB 13000 

14005 cai-car:q=lsw=2:G0SUB 13000 

14010 ca2=car 

14015 IF cal-ca2 THEN 15000 

14020 LOCATE i. 25s FOR a=l TO 30: 

PRINT " ": :NEXT a 
1-1025 LOCATE 1.25s PRINT "Nn hay pars,a" 
14030 GOSUB 19500 
14035 aimtsU <n 1 > s cy*=cv <nl) 
14040 GOSUB 11200:cj'=ci: Cn2J !cy=cy(n2J 
14045 GOSUB 11200; GOTO 220 
14490 ''<«^«escribir puntos>>>>: 
14500 PEN I j LOCATE 33. 4s RRINT ;c(l) 
14505 LOCATE 73. 7s PRINT sc (2) 
14510 IF p=l THEN LOCATE 32.15:PAPER 1: 

PEN :PRINT "Jugador 1 " i PEN Is 

PAPER Oi LOCATE 32,17s 

PRINT "Jugadcr 2" 
14515 IF p=2 THEN LOCATE 32, IT 7 : PAPER 1; 

PEN OiPRIMT 'Juejador 2": PEN 1: 

PAPEP O: LOCATE 32.15s 

PRINT "Jugador 1" 
14520 RETURN 

149°0 »«< , -:-''«««oarsja ;■>>»? »»>>>» 
15000 LOCATE 1.25 s FOR a=I TO 30: 

PRINT " "isWEXT a 

15005 LOCATE 1,25s PRINT "F'areja" 

15006 ac <nl J^Osac <n2)=0 

15007 FOR so- 500 TO 100 STEP -10s 
SOUND L.so, Is NEXT so 

15010 GO SUE 19500 

15015 c:;-c:; inl J s cy=cv Cnl ) 

1 5 020 GD3UB 1 1 300 s c :: *e : ; ( n2 ) s c v=cy ( n2 ) 

15025 GOSUB 1 1300: sc (p) »sc (p > * 5 

15030 IF 3c(l)+3c(2)=30 THEN 15500 

15035 GOTO 220 

15490 '<«« fin del juegci»^»>»» 

15500 CLSsPEN 1 



I lit try "" * 

15503 PRINT: PRINT "Puntos jugador I:": 
sc (1) 

15510 RRINT;PR1NT "Puntos jugador 2:"; 

3C<2> 

15515 PRINTs PRINT: LOCATE 5.10: 
PRINT 
"pulse 'EEPACIO 7 para jugar otra vmx-, 
15520 LOCATE 10, 12: 

PRINT "a "F" para acabar." 
15525 a$=INKEV3 
15530 IF a*=" " THEM 10 
15535 IF a*="F" OR a*="-f" THEN END 
15540 GOTO 15525 
170S5 RETURN 
19500 FOR t = l TO 3000: NEXT t : RETURN 

Ahora una con -"MERGE' la subrutina de 
'generation de baraja*. 
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Mastermicro 




Pongs color a sus ideas 

Hay versiortes de est a juego adaptadas para casr todos las micros. 
Memos puflsto gran interes en darfe una buena presentation para 
qua sea entretenido. 

El objeiivo es adivinar una combinacipn secreta da seis colores 
cofocando una serfs da sfmbolos de color, en Jinea. 

E! Amstrad la dira 1 cdroo ha estado de acertada utilizando una 
serie de caras y sfmbolos 

Una cara sonrienie indiea que ha dado con el color y con su 

posicion exacts. 

El signo •— le indicara que no ha acertado ni el color, ni Ja 

posicidn. 

Una cara seria signifies que el color es correcto pero no <tsi su 

posicidn. 

Seleccione loscolores mediante un -joystick* o con las flechas. 
Con el botdn "COPV" introdunqa su elecci6n. Por e! mismo proce- 
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so el i [a I os demas col ores hasia completer la fila, Dispone de diez 
oportunidades por juego para dar con la secuencia correcta. Si fa- 
lls, el ordenador presenters la soiucidn en la parts superior de la 
pantalla y perms necera a la vista pars permitirle anafizar sus fa- 
llos. Con las letras S/N decide si continuar jugando o terminer. 

El juego puede practiearse tambien de forma competitive. Cada 
iutjador dehe^a entonces ioientar dar eon la salucidn antes que los 
demaa. 



10 
13 

20 
22 
25 
30 

31 



37 
40 
45 

4& 

50 



*-:<««<«(nicrnmind: '■»" 

INPUT "COLOR CB/N) ?",a* 

a*=UPPER*<a$) 

IF a*="5 4 ' THEN gr=0 ELSE gr = l 

r 

MEMORY 34990 : add r =3 49<?9 
GOSUB 29500 
GOSUB 11500 

o;=3:cv=25 

FEN 1 

FOR a=l TO 4 

LOCATE < a*~) -2, 2: PRINT CHRS<143); 

CHRSC143) 

NEXT a 

n'liFDR v-4 TO 22 STEP 2: 

LOCATE l,viF0R ::^1 TO 9 STEF 3: 

PRINT CMft* { L«Si ■, CHR* t 232V *. " » ■; -. 

NEXT ;;i PRINT CHR* ( 143) ; CHR« (232) j I 

n=n+I:N£XT y 
55 try*l 
hd GOSUB 10000 

&5 GDSUB 10500 
70 GOSUB 12500 
72 IF at-"SSSS" THEN 14000 

75 trv=try+i: JF try=il THEN 13000 

ELSE GOTO 65 
9940 EMD 

9990 '<««««Den3ar secuenci a>»»» 

10000 FOR pla-1 TO 4 

10005 n^INT(RND(l>*4)+2 

10010 tin(Dla)=n 

10015 NEXT ola 

10020 RETURN 
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10490 
1 0500 

10301 



««s<<msiter col ores »»»: 
IF gr=l THEN EPTO 10502 

ELSE LOCATE 3,24 

PEN 2: PRINT CHR* ( 143> : ; FEN 3s 

PRINT CHR1 5143) l '. REN 4: PRINT 

CHR* (143 J ::PEN 5: PRINT CHRS(l43>;i 

PEN 6: PRINT CNR* (1431? : PEN 7: 

PRINT CHR* i 143) : GOTO 10505 



10S02 



1 0505 
1050? 
10510 

10515 

10520 
1052? 
10530 
10535 
10540 
10600 
10605 



10610 
10615 

11490 
114=5 
1 1 500 

11501 
11502 

11505 
11510 

11520 

11525 



LOCATE 3, 24 
PEN 3 
PRINT 



FEN 2: PRINT CHR* 
PRINT CHR*<35) : c PEN 4: 
CHR* (36) i :PEN 5: 



(34> 



t 
(i 



PRINT CHRS (37) : : PEN 6: 

PRINT CHR* (33) : : PEN 7i 

PRINT CHR* (39) 

t::=l 

cvsEHa 

LOCATE c;:, cvs PRINT "-" 

FOR t=0 TO 10s NEXT 

LOCATE cji.cvi PRINT 

GOSUB 29000 

IF le=l AND c:<>3 THEN c):-c,;-l 

IF ri=l AND CH<B THEN c;i~o: + l 

IF fi=l THEN 10600 

GOTO 10510 

pe=c::-l 

LOCATE t:;,try*2+2:PEN pe : 

IF ar-l THEN PRINT CHR*(32+oe) 

ELSE PRINT CHR* (233) 

tK=tie+3: pe<tx/3> =pe 

IF t;: = 13 THEN RETURN 

ELSE 60 TO 10510 

, <<<<«<<<dibujar c.At)eza>>»»» 

SYMBOL AFTER 223 

MODE 0; INK 1,24: INK 2, Hi INK 3, IB: 

INK 4,24: INK S. 26: INK 6,6: INK 7,7 

PEN 1 

PEN 6:L0CATE 2,1:PRINT "MICROMIND" 

:PEN 1 

MOVE 580.50sDRAW 560.110 

DRAW 605, 180: DRAW 615.220: 

DRAW a 15, 250 

DRAW 60S, 290: DRAW 555.320: 

DRAW 485.320 

DRAW 415. 290: DRAW 395.250: 

DRAW 365,200 
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11530 


DRAW 


375, 195; DRAW 390.190: 




DRAW 


400, 170 


11535 


DRAW 


395, 165: DRAW 400. 160: 




DRAW 


395 . 1 55 : DRAW 400 , 1 50 


11540 


DRAW 


400,145:DRAW 395.140: 




DRAW 


393, 130 


11545 


DRAW 


400, 125: DRAW 415.120: 




DRAW 


425, 110 


11550 


DRAW 


430, 95: DRAW 405.50: 




MOVE 


410.250:DRAW 430,245: 




DRAW 


410,240 


11555 


REM 2: LOCATE 15, 10: PR INT CHR* (143) 



:PEN 3: LOCATE 16- 9s PRINT CHR* < 143) 
;:PEN 4: PR I NT CHR* f 143) : REN 5; 
LOCATE 18.101 PRINT CHRS ( 143) :PEN 6 
J LOCATE lB.llsPRINT CHR* (143) 

11560 PEN 7;L0CATE 17,12:PRINT CHR*(143> 
:REN S: LOCATE 16,13: 
PRINT CHR*<143) :PEN 15: 
LOCATE 16, 15: PRINT CHR* (143) 

11565 SYMBOL 250.126,255,153,255,255.129 

,255. 126 

11570 RETURN 

11990 '«««<coinprobar 3ecuencla»»» 

12500 a* = ""st«=2(PEI\l 1 

12505 FOR :; = 1 TO 4 

12510 IF oe[;0=nn(n) THEN 

LOCATE ts;.trv*2+2: PRINT CHR*(224>: 
:a* = c i*+"E" ELBE LOCATE tu ,trv*2+2: 
PRINT CHR* <235) :: a*.=a* + M X" 

12511 t):=tss+3 
12515 NEXT :< 

12520 t;:=2 

12521 do=0 

12^25 FOR -< = X TO 4 

12526 IF NID*(a*,;:,l>- , "5 ,, THEN 

SOUND 1. 100. 10:GOT0 12550 
12530 IF pet:i)-nn(l) AND LEFT* (a*, 1 } w*Jf* 

THEN LOCATE ti: „ trv*2+2: 

PRINT CHR* ( 250 ): SOUND 1,300,10: 

do=i 
12535 IF pe(::)-nn<2) AND MID* (a*, 2, 1) = 

"X" THEN LOCATE t:;,trv*2+2: 

PRINT CHR* ( 250> i SOUND 1,300,10s 

do=l 
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12540 IF ds <:: J "=nrl (3> AND MID* (a*, 3, 1 > ■ 
"X" THEN LOCATE t;; , trv*2+2: 
F'RINT CHRS<250>: SOUND 1,300- 10s 
do- 1 

12545 IF p@<;;>=nn<4> AND RIGHT* <a£, 1 > = 
"X" THEN LOCATE tfl , trv*2-"-2s 
PRINT CHRSCI50) : SOUND 1,300.10: 

dQ=l 

1254^ IF da=0 THEN SOUND 1,450,10 

12550 t;-t::+3:S0UND 1,0. 5: ME XT i: 

12555 RETURN 

12°?0 ' ' ' sec: Lien ci a oerdedors 

13800 FOR a^i TQ q 

13005 PEN nrU) 

13010 LOCATE <a*3) -2, 2: PRINT CHRSU43>; 

CHRSM43) 
13015 NEXT & 

15023 LOCATE 13.1:FRINT "Lc siento" 
1302£ FOR ec=100 TO 500 STEP 10: 

SOUND 1. so. 3* NEXT so 
13030 GOTO 14 021 



lZ a ^>~j 



— 



scy«ncja gsnador; . 



141000 FOB a-l TO 4 

14005 REN nn(aJ 

14010 LOCATE (a$3>-2.2:PPINT CHP*(143: 

CHRSU43) 
14015 NEXT & 

14020 LOCATE 14. li PRINT "Lu hi cists " : 
LOCATE 12. 2 t PRINT "en ";trv 

14021 LOCATE 14, 23: PRINT "Otra »'h2«i 
LOCATE 13.24iPPlN T " '5 / m *' 

14022 FOP a-*! TO 2 

11027 FOR ac=500 TO 100 STEP -50s 
SOUND 1.3 p. 5: NEXT s: 

14024 FOR so-100 TO 500 STEP 50: 
SOUND 1, so, 5; NEXT sot NEXT a 

14025 aS=INKEVt 

14030 IF a*-"s" OF. aS^'S" THEN 35 
14035 IF a*=*"N" OR a*= ,J n" THEN CLS:END 
14040 GOTO 14025 

Ahar« un,a cun ' MERGE ' la subrutina de 
'en trad a tie reracteres' , 
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O'Grady dice 




O'Grsdy dtce: tec tea el ftstado 

Hasta donde yo se\ esta es la primer a adaptacidn para order ador 
de este conocido juego al qua tambien se le llama -Simon dice-. 

Esie programs puede ser muy uht pa^a ensefiar el concBpto de 
derecha e iiquierda. pero [cuidadof se trata da la derecha e ?z- 
quiarda de Sa figura del programa y no de la suya. 

Al comenzar el juego se le da un puniu. El mensaje inserto en 
el gtobo le intficar3 los movimientos que debe hacer asi como el 
noffibre de la persona que da ta order. Si as O'Grady quien dice 
"hSgalo", entonces proceda lo n\As rdpidamente posible. Si es 
O'Riley entonces no le haga case. E! mufieco de la parte superior 
de la pantalla obedece todas las ordenes. 

Cuatro son los movimientas que !e pueden pedir que haga; arri- 
ba o abajo se ejecutan con las flechas " t " y " 1 "; izquierda v 
derecha con "— " y " — " (el punto de referenda es la figura de 
la pantalla), asl. pulsando " — " levantara 1 al brazo derecho del 
muneco. 
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Este Ifo se ha introducido con el fin de complicarle un poco laa 
cosas. No le resuliara' ficil determiner cuando es la derecha y 
cuando la izquiarda y si OGrady dijo "hagalo". Si empieza a jugar 
camp renders" major a que" me refiero. 

La agilidad mental es importante en la respuesia a este juego 
ya que la ausencia de ace ion puede interpreiarse como algo interi- 
cionado. Si es asi perderd pu rites y, en el major de los cases, igual 
results que no hacer nada era la respuesta correcto 



1 *« &<{«b-*45radv diee»»»" 

2 ' 

100 MEMORY 34990 

110 addr=34???iG0SUB 29500 

500 GOSUB 20000 

505 sc=0:tu~O 

510 '<««:<<t3UCi(i principal >»»» 'i 

5i£ ag=INT(RNDtl>*2)+l 

st& tu=tut-i 

520 po=INT(RND<l)*4)+l 

521 CLS #1 

522 GOSUB 21040; GQGUB 21060: 
50EUB 21 140: GOSUB 21160: 

525 IF cg = l THEN PEN *l M 4s 

PRINT tU."0* GRADY DICE," 
530 IF sg=2 THEN PEN #1,4; 

PRINT #1. "0" RILEY DICE," 
535 IF po=l THEN FEN #1,5; PRINT #1: 

PRINT #1- "ARRIBA": GOSUB 21000: 

GOSUB 21020 
540 IF pa^2 THEM PEN #1, 5 a PRINT #ts 

PRINT #1." ABAJD"sGOSU£ 21060: 

GOSUB 21040 
545 IF po=3 THEN PEN #1.5: PR I NT #1: 

PRINT #1. " DERECHA "s 

GGSUB 21000: GOSUB ,21060 
550 IF po=4 THEN PEN * 1.5: PR INT #1: 

PRINT #l T "i;aU!ER-DA": 

GOSUB 21020: GOSUB 21040 
555 t^O 
560 GOSUB 2PO0O 
565 IF le+ri+UD+do^O THEN t=t+l: 

IF t=40 THEN 610 ELSE GOTO 560 
570 IF ri=l THEM GOSUB 21120: 

GOSUB 21140 
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575 
580 
5B5 
5=0 
5P5 
600 
605 
610 



611 



615 



616 
617 

61S 

620 

621 

625 
630 
635 
640 



IF le-i THEN GOSUB 21100: 

GOSUE 21160 

IF uc-1 THEN GOSUB 21100: 

GOSUB 21120 

IF do=l THEM GOSUB 21140! 

GOSUB 2U60 

IF po^l AND up=l AND og=l 

THEN 2000 

IF po-2 QND do=l AND og-1 

THEN 2000 

IF pn-3 AND le=*l AND cg-1 

THEN 2000 

IF po=4 AND ri = i AND aa-1 

THEN 2000 

IF t=40 AMD og=2 THEN CLS ftl: 

FEN *tl,6:PRINT #1," BIEN HECHD " 

IPEN #1,4: PRINT #1, "O 1 " RILEY": 

PEh) #l f 6:PRlNT *1,"LD DUO": 

sc=sc+li GOSUB 2500 

IF t=40 AND og=2 THEN 

FOR son =500 TO 100 STEP -30; 

SOUND l, son, 10; NEXT 3an:G0T0 635 

IF og=2 AMD le+ri+up+do< >0 THEN 

CLS #1:PEN #1.6: PR INT *l,"MAl_ ! " : 

PEN #1,4: PRINT #1: 

PRINT #1, "O* RILEY": PEN #1.6: 

PRINT #l:FRINT #1,"L0 DUO": 

se=sc-l; GOSUB 2500 

IF □g=2 AMD le+ri+up+do<>0 THEN 

FOR so- 100 TO 200 STEP 10: 

SOUND J. so. 5 J NEXT so: GOTO 625 

IF t=40 AND og=l THEN CLS #1: 

PRINT ftl,"FUERA DE TIEMRO!" : 

5c=5c-l: GOSUB 2500 

IF t**40 AMD og=l THEN 

FOR sn^lOO TO 200 STEP 10: 

SOUND 1, so, 5: NEXT sasGOTO 635 

GLS #1: PRINT #1:PEN #l,5s 

FRINT #1.-MAL | " 

FOR so^lOO TO 500 STEP 50: 

SOUND 1, so ,10 J NEXT so 

sc=sc-l:IF sc<l THEN 700 

GOSUB 2500 

FOR t=l TO 1000: NEXT t 

GOTO 515 
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690 
700 



~05 
710 

715 

1990 

2000 

2005 

2010 

2490 

2500 

2505 

199S0 

20000 

20010 

20020 

200 TO 
20040 
20050 
20060 
20100 
20110 
20120 
20130 
20140 
20150 
'201 to 
20170 

20 1 SO 
20190 
20200 
20210 
20220 
20230 
202*0 
20250 
20260 
Z0270 
202B0 
20290 
20300 



juego: ->>:■ ; »>> 



" •■*«■'.■',< -fin del 

CCS #2: PEN #2.5: 

PRINT #2, " MALA 2UERTE HICIETE" 

:tu:PRlNT #2." TURNDS. " 

RQR t = l TD 2000: NEXT t 

CLE #1;CLS #2±FEN #2.5: 

PRINT tf2."PUNTOS" 

MODE 0:GOTO 500 

*«<«« : cor recto >>>>>»>>>>»»> 

CL2 #1: PRINT #1 , "CORRECTD ! " 

FOR so=200 TD 100 STEP -5: 

SOUND 1, so. 5i NEXT so 

sc^sc+1 :GQGUB 2500: GOTO 635 

":<«;««es:nbir puntas>::> \ 

PRINT #2. 4: F PINT #2.ac 

RETURN 

* : «<c«««a«iis«H*>>>: . ■:■ 

RESTORE 20000 

FOR n-0 TO 15 

READ 5 

INK n.« 

NEXT n 

DATA 0,26,3, IS, 24 r 24. 24.3 

DATA 0,0,0,0,0,0.0.0 

BORDER 0: Prtf=ER OsFEN 1;N0DE 

WINDOW #1,2,9,3. 10 

WINDOW #2,2,9.14,20 

PAPER #1.2: PEN #1,5: CLE #1 

PAPER #2. 2: FEN 1*2, 5: CLS #2 

PlDT 30, 270. 5; DP AH 292- 370 

DRAW 292, 237: DRAW 30.237 

DRAW 5, 230 : DRAW 30. 252: DRAW 30,370 

PLOT 30, 195 i DRAW 292.195 

DRAW 292. 77: DRAW 30,77 

DRAW 30,i'30:DRAW 5,202:DRAW 30,195 

PRINT #2: PR TNT *2. "putit.os" 

PLOT 420. 325. 5: DRAW 420,250 

DRAW 530, 250, 9: DRAW 540. 250 



PLOT 400, 325 i DRAW 

DRAW 540, 365: PLOT 

DRAW 430, 250: DRAW 

PLOT 4B0. 325 i DRAW 

DRAW 420,365 

PLOT 480,325,3: DRAW 500.290 

BR AW 4BO. 250 : DRAW 50O.290 



530,340 
400,250.11 

420,260 
430,340 
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20310 DRAW 490.200 

20320 PLOT 460.325. 10: DRAW 500.290 

20330 DRAW 400, 250: DRAW 460.225 

20340 DRAW 470,200 

20500 PLDT 480. 150, 5i DRAW 4B0.75 

20510 DRAW 530.75, 13: DRAW 540,85 

20520 PLOT 490, 150: DRAW 530.165 

20530 DRAW 540, 190- PLOT 430.75,15 

20540 DRAW 430, 75: DRAW 420,05 

20550 PLDT 400, 150: DRAW 430,165 

20560 DRAW 420.190 

20570 PLDT 400, 150, 12: DRAW 500,115 

20580 DRAW 400, 75: DRAW 500.50 

20590 DRAW 4?0,25 

20600 PLOT 480. 150, 14: DRAW 460,115 

20610 DRAW 400, 75: DRAW 460,50 

20620 DRAW 470,25 

20630 TftS #3* PLOT 0.0.5 

20640 MOVE 466. 344: PRINT #3.CHR*<224) 

20650 MOVE 466, 169:PRINT #3,CHR*<224) 

20660 PLOT 0,0,0 

20670 G05UB 21040: GOSUB 21060 

20630 GOSUB 21 140: GOSUB 21160 

20750 RETURN 

21000 INK 11.24: INK 10,0 

21010 RETURN 

21020 INK 9.24: INK 8,0 

21030 RETURN 

21040 INK 10,24: INK 11,0 

21050 RETURN 

21060 INK 3.24: INK 9.0 

21070 RETURN 

21100 INK 15.24: INK 14.0 

21110 RETURN 

21120 INK 13,24; INK 12.6 

21130 RETURN 

21140 INK. 14,24: INK 15.0 

21150 RETURN 

21 160 INK 12,24:INK 13.0 

21170 RETURN 



Ahora una con 'MERGE' la 
' en trada de caracteres'. 



SLibnitina de 
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Cotorras 




iCu&i es et programs m&s bo/iito del tihro? 

Se encu€ntran en pantalla cuatro preciosas cotorras. cada una de 
un color" diferenta, y cada una sujatando una cuerda con la boca, 

Cuartdo empieza el program a las cotorras tiran de la cuorda 
consecubvamente, AJ principle sdlo dsran un tirdn y entonces ten- 
drd que adivinar en que 1 orden lo hlcieron. 

Los balancines de fas cotorras sb corresporiden con las dife- 
remes tecfas da flechas. Pulsando " t " la cotorra que esta mas 
arriba tirara" de la cuerda, pulsando " " sera la cotorra que esta 
ma's aba jo, y asi sucesivamente. Co mo siempre, podra - usar un 
"joystick' para sustiturr a las flechas. 

El or darxadat produce ur\a secuencia qua empveza &ierKJo muy 
faci! pero qua Mega a durar bastante. En las com probaci ones del 
programa no hubo nadie capaz de a carter secuencids de ma's de 
25 movimientos. aunque la amnesia suele empezar a partir de 12. 



lOrO'rvnr | J | 



Tal y como estd of programs, las cotorras pueden producir secuen- 
cias de hast a SO movimientos- Si es capaz de retenerlos, no cebe 
duda de que posee una memoria fotografica, joquizS sea usted un 
and route! 

Puede ser muy divertido jugarlo en fiestas, haciendo pagar ah 
gdn tlpo de *prenda» a fos perdedores. 

C2 REM " v C COTORRA » 

Z REM 

5 iBD?tF34'999ia!Stf& 29500 

10 SYMBOL AFTER 223: NODE O 

12 DIM N0<50) 

13 INr- 0,0; BORDER 0* INK 12.12 
15 GOGUB lOOOOiGOSUB 10500 

25 SC=0sHI=0 



30 605 UB 12500 

35 FOR A=l TO 4 

3i IF A=l THEN PEN 7 ELSE IF 

N 1 1 ELSE IF A»3 THEN PEN 14 

40 GQSUE 11000; NEXT A 

F*G* 0:CALL StBBQ& 

REN >>?->> BUGLE PRINCIPAL 

N-INT<RNB<1>*3)+1 

PO-PD+1 

NO(PG)=N 

SOSUB 13500: LOCATE 1.22: PR I NT 



5B 
60 
h2 

ht 

RNQ ' 



A=2 THEN FE 
ELSE PEN 13 



<«■ 



"MI TU 



1,22: PRINT 



70 FOP B*l TO PQ 
75 SQSUB 13000 
eo NEXT B 
32 CALL &BB03 
35 FOR T-l TO 1000: NEXT T 
37 E=l 

S3 G05UB 13500: PEN 1 * LOCATE 
TU TURNO" 
90 GOSUE 29000 

95 IF LE=1 THEN ft-4: SOUND 1 , 300, 10: G0SU8 
1 2000 i PEN 13:60SUB 11 500: FOR T=l TO 500 
: NEXT T 
10O IF FI=1 
B 12000 s FEN 
0:NEXT T 
105 IF UP* I 
B 12000: PEN 



THEN A=2; SOUND 
11:G0SUB 11500; 



1,400, lO:GDSU 
FOR T=l TO 50 



THEN A=l: SOUND 1 , 200. 10: GPSU 
?;GCSUB 11500: FOR T= I TO 500 



132 Jutigos simsncionates pnra A MS TRA D 

:NEXT T 

110 IF DD=1 THEN A=3: SOUND 1 , 600, 10i GOSU 

B 12000: PEN I4:60SUB 11 500 % FOR T*l TO 50 

01 NEXT T 

115 IF LE+RI-HJR+D0<1 THEN 90 

120 G05UB 12000 

125 GO SUB 1 1000 

130 IF NO!B>=A THEN 131 ELSE 135 

131 IF B=PO THEN GOSUB 1 3500 : LOCATE 1,22 
:PEN 1: PRINT "BIEN HECHO, ";P0:" HASTA A 
QUI " 

132 IP B=FO THEN FOR T»l TO 1500: NEXT T: 
SOSUB 13500: GOTO 60 

133 P=EM:GOTO 90 
135 GOSUE 13500i PEN 1 

140 LOCATE 1.22: PRINT "SEOJENCIA ERRONEA 



145 LOCATE 1,23: PRINT "TRAS ";RD-lj"lNTE 

NT OS" 

150 FOR T»l TO 3000: NEXT T 

155 GOSUE 13500 

160 LOCATE 1,22: PRINT "LA 5ECUENCIA ERA" 

165 FOR T=l TO i 000 1 NEXT T 

170 FOR B-i TO PO 

175 GOSUE 13000 

ISO NEXT B 

195 GOSUE 13500 

190 LOG ATE 1,23: PR I NT "INTENTALO DE NUEV 

O" 

195 FOR T=l TO 2000: NEXT f 

200 GOSUE 13500 

205 GOTO 55 

9990 REN »> CARACTEREE «< 

10000 SYMBOL 224,16,16,16.16,0,14.31.63 

10005 SYMBOL 225,0,0,28.126,127,207,207, 

207 

10010 SYMEOL 226,0,0,0,0,0,123,123 
10015 SYMBOL 227,63,49,40,9,16,33.35,3 
10020 SYMBOL 223,255,255,254,124,126,255 

10025 SYMBOL 229, 0, 0, 0, 0. 0, 12e, 192, 192 

10030 SYMBOL 230,3,3,3,3,3,1,1,1 

10035 SYNBOL 231,223,191,191,223,223,239 

,247,251 

10040 SYNBOL 232,192,192,224,224,224,240 
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240 n AB 

10045 SYMBOL 233.1,0.0,0,56,127,0,0 

10050 SYMBOL 234,253,126,12,24,46,252,0, 
O 

10055 SYNBOL 235,243, 120, 60, 25, 14, fi, 3, 

10060 SYNBOL 236,63,30,0,0,7,15,0,0 

10065 SYMBOL 237,243,0,0.0,0,0,0,0 

10070 SYMBOL 233,7,31,63.127,99,99,127,6 

■* 

10075 SYMBOL 239,144,225,247,251,139,115 

251 255 

1 OOScTsYMBOL 2 40 , , 254 , 255 , 255 , 255 , 255 7 2 
55 , 255 

10035 SYMEOL 241.3,14,252,252,248,240,22 

4, 128 

10090 SYMBOL 242,16,16,16,16,16,16.16,16 
10095 SYMBOL 243, 255, 170, 35, 170,85, 170, B 

5, 255 

10490 REM >» INC1AL1ZAR VARIABLES <<< 

10500 F l X<l)-10iPX(2J=14tPX(3)=6:PX(4)=3 

10505 PY < 1 > =5: F Y <2> = 13: FY (3) -15: FY ( 4> -7 

10510 RETURN 

10990 >>> RRIMERA COTORRA <<< 

11000 LOCATE PX<A),PY(A> 

11010 PRINT CHR*(224J ; CHRS <225> ,CHR* (226 

> 

11015 LOCATE FX(A> ,PY<A)+1 

11020 PRINT CHR4(227);CHR*<223> JCHR*(229 

) 

11025 LOCATE PX (A) ,PY f A) +2 

11030 PRINT CHRSC230) ;CHR* (231) : CHRS (232 

} 

11035 LOCATE PX < A> , FY <A) +3 

11040 PRINT CHftf (233) sCHR*(234) ; CHRf (235 

) 

11045 RETURN 

11490 REM £» COTORRA CHEPOSA DE ABA JO < 



11500 LOCATE PX <A> -1 , PY (A) +2 

11510 PRINT CHR*(236> 5CHR$C234) ;CHR*(237 

) 

11515 LOCATE PX (A) "1 , F Y(A) +3 

11520 PRINT CHR«(236):CHR*(234) ;CHR*(237 
) 

11521 LOCATE PX (A> ,PY (A> +1 : PRINT CHRS (24 



uvui/va 3B,i->ov,iv)>ttms para Mivi&m/\u 



2) 

11522 
1 1525 
11990 
12000 
i2005 
1 20 1 
12015 
OCATE 
12020 
12^90 
12500 



LpCATE 
RETURN 

REM : v : 

LOCATE 

LC2ATE 

LOCATE 

LOCATE 



PX<A),nY<AJ : PRINT CHR5C242? 



CCTORRA NEGRA < I \ 
PX(A>.PY(A> sPRINT " 
PS <A> ,FV<A1+1:PRINT " 
PX(A)-1.PY<A>+2;PRINT » « 

P^Cm)-l,FYtA)+Sj PRINT " ":L 
PXCA>+2.PY(A>+3:PRINT " " 

RETURN 

rem ;■» dipuja pantalla 

FOR ¥*i TO A :FEN :*: LOCATE iO.Y:PR 
INT CHR3H242) :NEXT ¥ 

12505 POR Y=l TO 12 £ PEL 11 ! LOCATE 14, Y: 
PRINT GHR*t242) xNEXT Y 

1281© FOR Y=l TO 14: PEW 13 : 4.DCATE c-VtP 
RIMT CHR4<242> :NEXT Y 

12515 FOR y*i TO is PEN 13: LOCATE 3,Y:PR 
INT CHF[*t 242 V* NEXT V 

12520 FOR K=i TO 20: LOCATE X.1:PEN 15* PR 
INT 2HR3 < 243 >: LOCATE X, 20s FEN 3: PRINT CH 
Rf 5 24D iNEXT X 

12530 LOCATE 10. 9 j PEN 12? PRINT CHRsM 243 > 
I GBR* (243) [CHR£<I43) 

12535 LOCATE 14* 17i FttINT CHRf <243> : CHR* C 
243) :CH£S<243) 

12540 LOCATE i,19:PRlNT CHR# (243) : CHR« (2 
43) lCKR*(243) 

1254= LOCATE 7-,lliPRINT CHR* (243; ; CHR* 12 
43} ;CHR*<243> 

12550 INK 15.24: INK 13, IS: INK 14,14 
125fcO PEN 13;L0CATE 7.241 PRINT "CaTORftft" 



12600 RETURN 

12990 REN »> HACER SONIDOS <« 

13000 IP NOCBJ-1 THEN A-1:GGSUB 12000: PE 

N 7 : GGSUB 11 500 : SOUND 1 , 200 ,10: FOR T - 1 T 

500: NEXT T 

13005 IF NQ(B>-2 THEN A=2 s GQSUB 12000:F 

EN 11:G0SUB 11500: SOUND 1.400. 10: FOR T=i 

TO 500: NEXT T 
13010 IF NQ-(B>-M3 THEN A=3:G0BUB 12000 :PE 
N 14:G05UB 11500:50UND l f '600 v tOiFOR T=l 
TO 500: NEXT T 
13015 IF MO<Bl«*4 THEN A=4-. GQSUB 12000: PE 
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N I3:GDSUB 11500i SOUND 1.800,10: FDR T=l 

TO 500: NEXT T 

13020 60BUB 12000: GOSUB 11000 

13025 RETURN 

13450 PEN 

13500 LOCATE 1.22: FOR Q=l TO 20* PRINT ' 

" i (NEXT □ 

13505 LOCATE 1,23: FOR D=l TO 20: PRINT " 

*: :NEXT Q 

13510 RETURN 

Ah or a una con 'MERGE' la subrutina de 

'entrarfa de caracteres" . 



19 
Pick man 




Un u rat -nit de Arcada 

Este es el primero de los tres juegos cfe tipo Arcada jncluidos aqui. 
Se irata de una variants da los programas en qua el jugador guia 
un caracter par la pantalla a iravtis da un laberinto cormendose 
puntos segiin se va moviendo. 

Paro la vida ngnca es facil an la Arcada, hay un par de incor- 
dianies que mtentaran comerse los puntos antes que usted. y para 
acabar de remaiar el asunto le matar^n si le cogen. 

Su fin sera' liquidar todos los puntos antes de que desaparez- 
can, y sin que le coman a usted. Cuando (ermine, Ja pantalla se 
valvera a lleina< de nuevo. 

Controlara el movimiento del Pick man como de cusiumbre, con 
las flechas o con un 'joystick*, 

En manos de jugadores ave*ados y pacientes los resuftados 
pueden sar increibles. 
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Cargando la subrutina "Puntuacidn maxima" con "MERGE" 
podra dejar su nombra en at programs para la poster idad. 



1 REM :« PICK MAN I 

2 REM 

500 SYMBOL 2*0,3, 15, 63, 63, 123. 113,2*1,25 

1 

510 SYMBOL 2*1,192,2*0.252,252,222,142,1 

A3, 223 

520 SYMBOL 242,255,255, 127, 127, £3, £3, 15, 

3 

530 SYMBOL 2*3,255.255,254,254,252,252,2 

40,192 

550 SYMBOL 244,3,15,63,63,123,113,2*1,25 

1 

360 SYMBOL 245,192,2*0.252,252,222, 142, 1 

43,223 

570 SYMBOL 24£, 255. 255, 127, 127, 63. £3, 15, 

3 

5B0 SYMBOL 2*7. 255.255, 254, 25*, 252, 252, 2 

*0. 192 

600 SYMBDL 2*S, 3, 29. 49. 33,65. 65, 129.255 

610 SYMBOL 249,255.129.65.65,33,49,29,3 

620 SYMBOL 250, 192, 176, 1*0. 132, 130, 130, 1 

29,255 

630 SYMBOL 251,255,129,130,130,132,140,1 

76,192 

6*0 SYMBOL 252.255,129, 12?, 129, 129, 129,1 

29,255 

650 SYMBOL 253,3.3,0,0,0,0,0,0 

660 SYMBOL 25*. 15, 1 12,64 , 12S, 126, 64 , 1 12, 

15 

670 SYMBOL 255,240, 1*, 2, 1, 1 , 2, 14, 240 

750 HI =1000 

980 REM «< BUCLE PRINCIPAL >» 

1000 GOEUB 21000 

10*0 SO0:C0UNT=3:LI=3 

1060 GOSUB 20000: T*=CHR* f 2*0 > +CHRS (241 > I 
B*=CHR* 1242> +CHR* (24$) 

1065 T 1*=CHRS (244 1 +CHR£ < 2*5 ) : B 1 *<!HR* ( 2* 

6)+CHR$(247> 

10.70 PEN 2 

iOSO LOCATE 1B,1: PRINT T*iT«iTi 

1090 LOCATE lS,2: PRINT B*iBtiB» 

1500 X-20iY=17 



1 3fl Jusgos sttnsaciotmtes put* AMS TRA D 



!.6.16: 



1510 Xl=2j Yl<=4i X2=3B: Y2<=4 

2000 GO SUB 22000 

2020 GO BUB 25500 

2040 GOSUB 22000 

2050 IF (XI = X AND VI m Y>OR (X2-X AND 

Y2^Y: THEN DEA0=1 

2070 IF COUNT; 25B THEN GOTO 24000 

20B0 IF DEAD=1 THEN GOTO 24500 

3000 GOTO 2000 

19990 REM <« PANTALLA >>> 

20000 INK 0.0: INK 1,18,1?: INK 2 

INK 3.20.2 

20005 SPEED INK £,6 

200 lO PAPER 0:PEN 1 : NODE 1 : BORDER 

20020 PR INT "T ANTED? r 

ECORD; "; HI:: PRINT 

20030 WS=CHRS C 252 ) +CHR* < 252 > : X S =CHR$ (248 

) +CHR* t 250 > : U*«CHB* < 253 ) +CHR# < 32 > 

20035 Y*=CHRS < 2 49 ) +CHRS < 25 1 > : Z S =CHR* < 254 

>+STRlN6*(e.252>+CHRt (255) 

20040 R$-vs+y«+vs: s*»r*+v*+y*. s a*=chr$ < 

24 S > +STRI NG* { 30 . 252 > +CHR* (250) 

20050 PRINT A*: 

20060 A*=CHR* (252) +S*+W*+SS+Vf +VS+WS+^*-f- 

CHRS (252> 

20070 PRINT Af;:G*=AS 

20066 PRINT AS; 

20090 AS=CHR* ( 252 ) + V *+CHRS ( 254 ) + Ws +■ m +CH 

R* <250)+VS-»*Y*+V* + ZS+V*+Y§+'. J £+CHR$ (24B)+W 

S+WS+CHR* (255> + ( .'*+CHPS (252) 

20100 PRINT A* j 

20 UO A*-CHPS (252) +RS + W*---SS+SS+V*-H»j*+Rs + 

CHRS(252> 

20120 PRINT A*; 

20130 MID*<A*,3.2>-Y*:MIDS(A*.32.2>*Y$ 

20140 PRINT AS: 

20150 ft**W**W*4-CHRa) f2H0^-*R«*X#*V l : *f2'<*V'f* 

Xt+RS-i-CHR* (24S)+W*-i-WSI 

201 60 PRINT A£; 

201^0 A*-W*+w*+CHR* (251>+RS+W*+E*+V*+V*+ 

WS+R*+CHRS (24°>+W$+N4 

20180 PRINT A*; 

201?0 A*=CHRS <252)+R*+X£ + V*-HJS+SS+y*+VS+ 

Wf+'.'S+XS+RS+CHR* (252) 

20200 PRINT AS: 
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20210 A* "CHRS (251 ) +R*+WS+V*+Y§ +OS+CHR* < 2 

49 ) +W* +CHR* I 25 1 ) +Y* 

20220 A*=AS+CHR* CI49) +W$-H3HRS (250) +V4+YS 

+V*-i-W*.+R«+DHR* (249) 

20230 PRINT At; 

20240 AS=CHR* (32) +',-'*+X*.-H-'S+Wi+R*+W9+STRI 

NGS (6, 32 > +WS+RS+WS+OS+XS+V* 

20250 PRINT AS; 

20260 MID*(AS,4,2)=Y*:MIDS(A*,36,2>=YS 

20270 PRINT A*; 

202B0 At =CHRS < 250 ) +RS+W* + V* + X S + VS + W*+STR 

INGS (6. 32) +Wt+'.'*+X*+V*+WS+R4+CHRit (248* 

20290 PRINT AS: 

20300 At^CHRS (252) +MIDS (Ai, 2, 10) +Wt+V«+C 

HR* (249) +STRING* (8, 252) +CHR* (251 > +V*+W*+ 

MIDS(A#,30« 10)+CHRS(252) 

20310 PRINT As: 

20320 A*=WS+WS+CHR* (250> +ys+WS+VS>W*+S*+ 

V*+Vf+Wt+*.'*+W*+04+CHRS (243>+W*+W* 

20330 PRINT AS; 

20340 MIDS (At .5. 1 > =CHRf (251) : MID* (AS, 36, 

1>-CHR*(24?) :MIDS<AS,S.2)=Y*:MID*(A*,32, 

2>^Y* 

20350 PRINT A*i 

20360 A*=CHR* <252)+St+W*+V*+ZS+V*+W*+S*+ 

CHR* (252) 

20370 PRINT A*| 

203S0 A*=Q* 

20390 PRINT AS: 

20400 B* -CHRS ( 243 > +WS + W* +CHRS ( 250 > 

20410 fllD4(A*, 4, 6) -B*:MIDS (AS, 32,6) =B* 

20420 PRINT AS; 

20430 B*=CHRS ( 249 ) +WS+WS+CHRS ( 25 1 > 

20440 NIDS (A*,4,6>=B* : MIDS (AS, 32. 6> ~B* 

20450 MIDf <Af ,16, 10J-2S 

PRINT ASt 

PRINT O*; :PRINT OS; 

A*=CHRS(24?)+3TRINGS (3S. 252) +CHR* < 



20460 
20470 
20480 

251) 

20490 

20500 

209B0 

21OG0 

21010 

21020 



PRINT AS; 

RETURN 

REM <<< INICIALIIACION 

MEMORY 34998 
ADDR=349?9a GOSUB 29500 
L OCA= 35029 : GO SU B 30500 



>>> 



1 40 Juagos sensaaonates para A MS IRA Q 



21250 

219S0 

22000 

22010 

22020 

22030 

22040 

22190 

22200 

22980 

23000 

23010 

23050 

23P60 

23 1 00 

23 1 50 

23200 

23210 

23250 

23260 

23300 

2 

23350 

23400 

23410 

23450 

23460 

23500 

23550 

23600 

23610 

23650 

23660 

23700 

23750 

23800 

23B10 

23B20 

23S50 

Yl + 1 



RETURN 

REM <<< MOVIMIENTD >>> 

GOSUB 29000 

IF LE-1 THEN GOSUB 23000 

IF RI-1 THEN GOSUB 23200 

IF UF--1 THEN GOSUB 23400 

IF D0=1 THEN GOSUB 23600 

GOSUB 26000 

RETURN 

REM ' « CDMPROBACIONES >>> 

LOCATE X-1,V: GOSUB 32000 

IF CHO 32 THEN RETURN 

LOCATE X-l.Y+1: GOSUB 32000 

IF CH032 THEN RETURN 

GOSUB 23800: X^X-1: IF x=i THEN X=33 

RETURN 

LOCATE X+2,V: GOSUB 32000 

IF CH 032 THEN RETURN 

LOCATE X+2.Y+1: GOSUB 32000 

IF CH 032 THEN RETURN 

GOSUB 23800s X=X+1;IF X=39 THEN X = 






RETURN 
LOCATE 
IF CH < 
LOCATE 
IF CH 



X,Y-1: GOSUB 32000 

>32 THEN RETURN 
X+1,Y-1: GOSUB 32000 
>32 THEN RETURN 



gosub 23saoiV»y-i 

RETURN 

LOCATE X,Y+2: GOSUB 32000 

IF CH <>32 THEN RETURN 
LOCATE X+l,Y+2: GOSUB 320^0 
IF CH <>32 THEN RETURN 
GOSUB 23S00sY-Y+l 
RETURN 

X,Y: PRINT " " 
X.Y+1:PRINT ■ '■ 



LOCATE 
LOCATE 

RETURN 

LOCATE 

PRINT " 



XI 
ii 



1: PRINT 



: LOCATE XI 



; LOCATE X2, 



23060 LOCATE X2, Y2i PRINT " 

Y2+1: PRINT " " 

23S90 RETURN 

23980 REM <<< REINICIALIZACION %*> 

24000 SC=SC+10OO: LOCATE 8.1: PRINT SC 



Pick man 141 

24020 RESTORE 40100: TUNE= 12: GOSUB 31000 

240B0 COUNT=0 

24090 GOTO 1060 

244SQ REN < ■ ilUERTG ;■ ■■-■ 

24500 Cs-Tf :Da-34:2EAD-0 

24510 LOCATE X< Ye PRINT " 

j PRINT " " 

24530 RESTORE 40000s TUNE=8: GOSUB 

24540 GOSUB 23850 i PEN 2 

24550 LI=LI-i:IF LI«*0 THEN GOTO 



LOCATE X.V+1 



ilOOO 



IS. Is PRINT CS: LOCATE 



5000 
1S,2:P 



21560 LOCATE 

RINT D* 

24570 IF LI=i THEN CS=" ":D*=" " 

24500 LOCATE 20,1: PR I NT C*: LOCATE 20. 2: P 

RINT D* 

24590 IF LI=2 THEN C4=" " :D$=" " 

24i00 LOCATE 22.1:PRINT C* 6 LOCATE 22.2;P 

RINT D* 

24610 6QT0 1500 

24980 REM (.<.< MOVER F ANT ASM AS '; 

25000 LOCATE X 1-1 . Yl : GOSUB 30000: IF CHO 

253 AND CH>247 THEN RETURN 

25005 IF CH=253 THEN C0UNT=CQUNT+1 

LOCATE X 1-1, Yl+1: GOSUB 30000: IF CH 
AND CH"247 THEN RETURN 
IF CH=253 THEN COUNT=CDUNT +1 
GOSUB 23950: Xl=Xl-l : GOSUB 26040: RE 



25010 

0253 

25015 

25020 

TURN 

25050 



LOCATE X2-1,V: 



: GOSUB 30000: IF CHO 

253 AND CH>247 THEN RETURN 

25055 IF CH^253 r HEN COUNT-COUNT +1 

LOCATE X2-1.Y2+ Is GOSUB 30000: IF CH 
AND CH>247 THEN RETURN 
IF CH-253 THEN COUNT-COUNT +1 
GOSUB 23e50:X2=X2-l! GOSUB 26040: RE 



25060 

<>253 

25065 

25O70 

TURN 

25100 LOCATE X 1+2, Yl : GOSUB 30000: IF CHO 

253 AND CH>247 THEN RETURN 

25105 IF CH=253 THEN COUNT^COUNT +1 

25110 LOCATE X 1+2, Yl + 1 : GOSUB 30000s IF CH 
AND CH>247 THEN RETURN 
IF CH=253 THEN COUNT^COUNT +1 
GOSUB 23850 s XI -X 1 + 1: GOSUB 26040: RE 



< >253 

25115 
25120 

TURN 
25150 



LOCATE X2+2.Y2: GOSUB 30000: IF CHO 
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AND CH;247 THEN RETURN 

IF CH=253 THEN COUNT=COUNT +l 
LOCATE X2+2,Y2+1: GOSUB 3OO00: IF 
AND CH>247 THEN RETURN 
IF CH=253 THEN C0UNT=COUNT +1 
GOSUB 23350: X2=X2+1: GOSUB 26040: 



CH 



RE 



253 
251 

25160 
< >253 

25170 

TURN 

25200 LOCATE XI , Yl-1 : GDSUB 

253 AND CH>247 THEN RETURN 

25205 IF CH=253 THEN COUNT=CQUNT +l 

LOCATE Xl+i.yi-isSQSUB 30000: IF 
AND CH:*-247 THEN RETURN 
IF CH-253 THEN COUNT-COUNT +1 
GOSUB 23850: Y1=Y1-1: GOSUB 26040: RE 



25210 
< >253 

25215 
25220 
TURN 
25250 



30000: IF CHO 



CH 



CHO 



LOCATE X2,Y2-1; GDSUB 30000: IF 
253 AND CH>247 THEN RETURN 
25255 IF CH=253 THEN C0UNT=C0UNT +1 

LOCATE X2+LY2-U GOSUB 30000: IF 
AND CH>247 THEN RETURN 
IF CH=253 THEN CQUNT=COUNT +1 
GDSUB 23S50:Y2=Y2-1: GDSUB 26040: RE 



CH 



CH 



25260 

0253 

25265 

25270 

TURN 

25300 

253 

25 

25310 

< >253 

25315 

25320 

TURN 

25350 LOCATE X2. Y2+2: GOSUB 30000! 

253 AND CH>247 THEN RETURN 

25355 IF CH=253 THEN COUNT-COUNT 4*1 

LOCATE X2+1„Y2+2:GQ5UB 30000: IF 
AND CH>247 THEN RETURN 
IF CH=253 THEN CDUNT=COUNT +1 
GOSUB 23650: Y2^Y2+1: GOSUB 26040: RE 



LOCATE XI. Y 1+2 : GDSUB 30000: IF CH< 
AND CH>247 THEN RETURN 
05 IF CH=253 THEN COUNT=C0UNT +1 
LOCATE X1+1.Y1+2:G0SUB 30000: IF 
AND CH>247 THEN RETURN 
IF CH=253 THEN COUNT^COUNT +1 
GDSUB 23850: Yl^Yl+1: GDSUB 26040? RE 

IF CHO 



25360 

< .-'253 

25365 

25370 

TURN 

25400 

25500 

25510 

25520 

25530 

25540 



CH 



RETURN 

IF RNDU1 >0.7 THEN 
IF X>X1 THEN GDSUB 
IF X<X1 THEN GDSUB 
IF Y>vi THEN GOSUB 
IF YO'l THEN GOSUB 



GOTO 25550 

25100 

25000 

25300 
25200 



25550 


IF RNDU)>0.6 THEN RETURN 


25560 


IF X>X2 THEN GOSUB 25150 


25570 


IF X<X2 THEN GOSUB 25050 


25580 


IF Y Y2 THEN GOSUB 25350 


253*0 


IF Y<Y2 THEN GOSUB 25250 


25600 


RETURN 


25980 


REM C« BIBUJAR HOMBRE ■■» 


26000 


PEN 2 


2601 


LOCATE X,Y SPRINT TS 


26020 


LOCATE X.Y+1: PRINT B* 


26070 


RETURN 


26040 


PEN 3 


26050 


LOCATE X1.Y1: PRINT T1S 


26060 


LOCATE XI. Yl+laPRIMT Bl* 


26070 


LOCATE X2.Y2; PRINT Tl* 


2 60 BO 


LOCATE X2.Y2+1: PRINT BL* 


30980 


REN « { SON I DO > • 


31000 


FOR N~l TD TUNE 


31010 


READ NOTE, DURA 


31020 


SOUND 2, NOTE, DURA, L5 


31030 


NEXT N 


31040 


RETURN 


31=30 


REM <« DETECCIDN >» 


T2000 


GOSUB 30000 


32010 


FEN 1 


32020 


IF CH=253 THEN CH-32: SC=SC+10: SOUN 


D 2, 120, 1,15: C0UNT=CDUNT+1 ; LOCATE S.1:RR 


INT SC 


32030 


IF CH-32 THEN' PRINT " " : RETURN 


32040 


IF CH>247 THEN RETURN 


32050 


DEAD= 1 


320=?0 


RETURN 


34*80 


REN <« FINAL DE JUEGO >» 


35000 


CLS 


350 i 


PEN 1 


35020 


LOCATE 13, 3: PR I NT r TE HAN COM I DO" 


35030 


LOCATE 7, 21: PRINT "PULSAR "S» PARA 



JUGAR OTRA VEZ" 
35040 IF SC;HI THEN H J =SC: LOCATE 10. c 
INT "UNA NUEVA MASACRE I " 
35150 A*-INKEY-*:A*=UPPEP*'.A*^ 

IF A*0"S" THEN GOTO 35 150 

GOTO 1000 

REM * * * MARCH A FUNEBRE 1 * * 



PR 



35160 
35170 

40000 



DATA 234 . 20 , 284 , 20 , 284 , 20, 359 . 75 . 3 
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19,20,313,20,319,20,379,75 

40098 REM <« MUSICA DE FDNDQ 

40100 DATA 31 9.20, 253, 20, 213, 50, 253,20, : 

13,20,253,50 

40110 DATA ~19, 20, 253,20,213,50,253.20.; 

19,20,253.50 

Ahora uns con 'MERBE' las subrutlnas de 

de carac Ler-?s' . 
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Utt safto facia sttetante 

-Erase una vez un cangurito que vivfa en Australia, que trsta muy 
lejos de aqui. Esle jovenzuelo se llamaba Skippy y vivid fehi mu 
chos aftos> 

* Skippy tenia su casa en los ma> genes de un caudaloso rio por 
el que i lota ban troncos. El dlsfrutaba sent ado en su pequeha cho- 
za y mirando el maravilloso paisaje que fa rodeaba, pero un dla 
las cosas cambieron. 

«Lo& pemiciosos humanos llegaron y construyeron una aulo- 
pista pdgada al rio de forma que, cada dia, Skippy y sus amigos. 
at volver de rebuses^ oomida, te^ian que cruzar la ttarrsiiada au- 
topista, saltar sabre los troncos para cruzar ef rio y, por ultimo, 
apearse mienlras pasaban por defame de su casa. Como todo aato 
es muy peligroso a alios les gust ana que el lector ios ayudara- 

Uttlizando el ^joystick- o las flechas, intente gulor a Skippy y n 
sus amigos senos v salvos por em re los coolies, BObro I on Ironcon 
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¥ hasta el interior da sua caaas, Su ayuda on esta vida salvaja la 
ser£ recompensada con puntos, de acuarda con au perlcia para 
gutar a cada canguro. 

Puede cargarcon "MERGE" "Puntuacidn maxima" pora anadir 
una puntuacion record. 



10 REM <<<< SKIPPV »» 

20 REM 

30 SYMBOL AFTER 223 

40 MEMORY 34990 

60 GOSUB B50 

65 GAM$="SKIPPY" 

70 REM 

HO REM «< DEFINICION DE 0BJETO5 »> 

120 CAR*=CHR$(224)+CHRi5 C225) 

1 30 LQRS-CHRS < 229 J +CHRf ( 227 > +CHRS (226) 

140 BIKS-CHR* (24 1 > +CHR* (242) 

150 LD*=CHR* (229) +CHR* <230> +CHR* (231 > 

1 55 GAP*-CHRS (245) +CHR* (245 > +CHRS <24 5> 

160 G$=STRING* (2. ° " ) 

165 H$=STRTNG*C3, " " > 

170 Ci*=CAR*+CAR$+G*+G*+G#+G*-»-CAR*+G*+G* 

+CAR*+CAR*+CAR*+G*+CAR*+G5+CARS+CAR*+G*+ 

GS+GS+CARS+GS+GS+CARS+G* 

1 75 C 1 *=C 1 S+CAR*+CAR*+G*+E*+G*+CAR*+CAR* 

+CAR4+CAR*+G*+Gt+G*+G*+CARt+Gf+CAR*-t-GJ+D 

AR*+CAft*+G*+G*+G*+CAR*+G*+G*+CARS+CAR* 

1B0 C2?=LDRS+H*+HS+H!Ji+H*-H_QR«Ji+H*+L0R*+LD 

R$+H*+HS+L0R4+H«+H3+H*+L0RS+H*+H*+H*+H$+ 

L0RS+H*-i-n*+HS+LDR«+L0R*+LOR'5+H*+H*+H*+HS 

* n "+LOR*+H« 

190 C33sBIK«+BIK$+HS+HS+G*+B1K*+BIK*+BIK 
S+BlKS+BIKS+Hf+HS+Gf+BIKS+BlKS+BIKS+BIK* 

+BIK4+Hf+H* + " ,1 +BIK*+G*4*BIK$-H* + " "+BlKt 

+BIK*+BIKS+H*+ M " +B1 KS+HS+HS+HS+GS+B IK*+ 

BIK*+H*+H*+G*+BIK*+B1K5+BIK3:+BIK* 

200 LI *-L0*+GAP4+GAP4+GAF , *+L0*+GAP£+LO3i+ 

GAP*-H_0£+GAPi*-H_O3:+GAP*+GAF*-i-GAPS-M3AP5+LD 

*+GAP*+GAF*+L05+LO*+GAP*+GAP*+GAR*+LO*+L 

0S+L0S+CHR4 (245) +CHR4 < 245> +LD*+GAP*+GAPS 
+GAP*+LD4+GAP*+LO* 

210 L2*=LD9+Lrj$+GAPS+GAR*+LQ4+GAP*+L0*+G 
AP«+EAPS+LD$+LD*+GAF 1 *+LO*+GAF*+GAP*+LQ*+ 
GAP*+GAP*+LQ*+L04+GAP$+GAPi+LDf+GAP4+LO5 
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21S FOR A=l TO 100:RIV*=RIV*+CHRS(245):N 

EXT A 

220 FOR A=l TO 20: BAN1*^BAN1$ +CHRS (243) s 

NEXT A 

230 FOR A = l TO 20 STEP 4: BAN1*-BAN1*+CHR 

*;243>+CHR!£(243>+CHR*(243) + M ":NEXT A:BA 

Mlf^LEFTf <BANIS.3?> : BAN1$-BAN1*+CHR* (243 

> 

240 FOR A=l TO 100: BAN2*=BAN2S+CHR* (244) 

sNEXT A 

250 FOR A^i TD 40: BAN3#=BAN3* +CHR* (244) J 

NEXT A 

255 FOR A=l TD 20; BAN4*=BAN4f +CHR* <243> : 

ME XT A 

260 HI=0 

300 KA=3:SD=0 

310 GOSUB 710 

315 REM «Z< INICIALIZAR VARIABLES >>>> 

320 Cl=-l;C2=l:C3=-l:Ll=l;L2=~l 

330 CC1 -SO: CC2« i i CC3=80 : LL 1 -70: LL2=10 

340 K=232 : Kl -232 : K2=233 

350 KX=10:KY=22 

360 0X=10:0Y=22 

362 KAE-0 

365 REM «« BUCLE PRINCIPAL >»> 

370 GOSUB 570 

373 RET-liGDSUB 740 

375 OX=KX:OY=KY 

376 GOSUB 40000 

400 CC1 =CC 1+C1 I CC2=CC2+C2 : CC3^CC3+C3 

407 LL1=LL1+L1:LL2=LL2+L2 

420 IF 1121 = 1 THEN CCI^Sl 

430 IF CC2=81 THEM DC2=1 

440 IF CC3*1 THEN CC3-B1 

450 IF LL1=81 THEN LLl=l 

460 IF LL2=1 THEN LL2=B1 

461 IF KY-B THEN r\D>!=-l 

462 IF KY=6 THEN KDX=1 

463 * IF KX+KDX-0 OR KX+KDX=2l THEN 505 

464 RET=2:G0T0 740 

510 DX=KXtGY=KY:GOTO 370 

560 REM «.« DIBUJD DE DBSTACULDS » 

570 PRINT DHRS(30) ; PRINT: INK 2.20 

580 PRINT: PRINT: PRINT: PEN 10: PAPER OlPRl 

NT MIDt <L2*,LL2.19) 
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590 PRINT] PRINT MID* <L1«, LL1, 1°J : PF INT; F 

RlNTlPRINTl PRINT 

600 PRINT: PRINT: FR INT: PAPER OtPEN OsRRIN 

T MID*<C3*.CC3, 1?) 

610 PRINT: PEN 2iPRINT MID* (C2$. CCZ, 1?J 

620 PRINT : PEN 7: PRINT MID* <Cl*,CXl . 19 

> 

630 RETURN 

650 REM <<;< DIBUJD CANEjURO ■■ >» 

690 PEN 12; PAPER O: LOCATE KX.KY: PRINT CH 

R*(KJ : RETURN 

692 REM «« BORRAR CANGURO »» 

6 93 IF oy<5 THEN CC=243: PAPER OsPEN 15 

694 IF 0Y=8 OR 0Y=6 THEN CC=0:GDTO 700 

695 IF 0Y>4 AND DY' 1 1 THEN CC=207s PAPER 

id* PEN 14 

696 IF 0Y>9 AND DY<15 THEN CC=244i PAPER 
OjPEN 14 

697 IF 0YM4 AND DY<22 THEN CC=32: PAPER 
Or PEN 12 

698 IF 0Y;21 AND 0Y%24 THEN CC=244: PAPER 
0:PEN 14 

69? IF 0Y=24 THEN CC=2 43 i PAPER OsPEN 15 
700 LOCATE OX,0Y;FRINT CHR* (CO : RETURN 
705 REM «« DIBUJAR PANT ALL A M 



710 MODE OtlNK U 



:4: INK 14, 26: BORDER 0: 



PAPER OsCLBs PRINT CHRS (30) : : INK 0.0 
720 PR I NT: PAPER OtPEN lSsPRINT BAN1*;:PA 
PER OsPEN 10: PRINT RIV#* i PAPER 0:PEN 14i 
PRINT BAN2*s PR I NT: PR I NT: PR I NT; PR I NTs PR IN 
TsPRlNTsPEM 14;RRINT BAN3*::PEN 15: PRINT 

&AN44 
725 PRINT CHRS (30) : "TANTEO RECORD GANG 



730 RETURN 

735 REM <^<; MOVIMIENTD INKEY r >>> 

740 GOSUB 29000 

745 CALL &BB03 

750 IF UV-\ AND KV<il THEN K1«£32:K2=23T 

:KDY-~2:KDX=0:St>Sl>l ELSE IF UP=1 THEN 

K 1=232: K2=233: KDY-- 1 1 K0X»6l SC«SC+ 1 

760 IF RI = 1 AND KX<19 THEN K 1=234 : K2-235 

:KDX=l:KDY-0 

770 IF LE = 1 AND KXM THEN KI=2S6s K2=237j 

KDX=~1:KDV=0 
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775 IF EX=1 THEN END 

730 IF DG»1 AND KY< 1 1 THEN Kl=23S: K2=239 
sKDY^2:KDX=0 ELSE IF D0=1 THEN K1=23S:K2 
=23?sLDY=l:rDX-0 

7B1 KX-KX+KDX:KY^KY+KDY: LOCATE K*,KY:GOS 
UB 30000 

792 IF LE=1 DR UP=1 OR DO-1 OR Rl=i THEN 
FOR 30=300 TD STEP -10: SOUND USO.liN 
EXT SO 

763 KDX=0:KDY=O:IF K=KJ THEN H>K2 ELSE K 
=K1 

764 GOTO 25000 

790 GOSUB i93sG0SUB &9Q i IF RET^l THEN GO 

TO 375 ELSE GDTG 510 

830 REM «« DEFINICION DE CARACTERES » 

850 SYMBOL 224,7,28,56,127.219,231.36.24 

260 SYMBOL 22-. i 25, 64, 32,252, 216,229, 38, 

24 

370 SYMBOL 226. 0, 0, 0, 0,255, 255, ±0, 24 

830 SYMBOL 227, 64, 64. 64,64. 255. 255. 12S, O 

B90 SYMBOL 223.7,9,9,63,127,127,7,3 

900 SYMBOL 229, 191 , 109. 182. 109, 2 IS, 125, 1 

7 1 95 

910 SYMBOL 230,255,118,235,182,47.254,93 

,190 

920 SYMBOL 231 , 250. 213, 190, 91 , 1B2, 109. IS 

2 253 

930 SYMBOL 232.36,24.90.60,24,30.60,219 

940 SYMBOL 233, 36, 24, 24 , 60, 90, 189, 12£ . 36 

950 SYMBOL 234. 4, 12. 14,24, 60, IBB, iS4 t ?4 

960 EYMBOL 235, S, 24 , 28, 24, 60, £1 , 5?, 220 

970 SYMBOL 236,32,43.112,24,60,61,29,122 

980 SYMBOL 237, 16,24, Si. 24, 60, IBS. 92, 59 

990 SYMBOL 238. 219, 60, 60, C4, 60,90,24, 3£ 

1000 SYMBOL 239.36, 126, 109,90.60.24.24,3 



1010 SYMBOL 240,0,0,67, 172,240, 1<?2, 255,0 
1020 SYMBOL 241.0,1.51. 14.55, ~2, 72. 48 
1030 SYMBOL 242,96,200,244.12,154,164,22 
8,24 

1040 £ Y MBOL 2 43 , 25-5 , 255 , 255 , 255 , 255 , 255 , 
255 255 

1050 SYMBOL 244.0, 127,127, 12~, 12^, 127, 12 
7, 127 

1051 SYMBOL 245, IT©, 85, 170,85,170, 85, 170 
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1060 ADDR=34999:GQSUB 29500 
10t5 LOCA=35020:E0SUE 50500 
1070 RETURN 

JSS5 51" <;:<< COMPR OeAClDN DE CHOOUE » 
25000 IF KV«4 THEN 25030 

25005 IF CH=32 OR CH=244 GR CH~0 THEN ^° 
O * 

25010 IF CH^229 OR CH«230 OR CH=231 THEN 
790 

25011 IF CH>231 AND CH«240 THEN 7Sn 
25015 GOTO 50500 

25030 IF KX=4 THEN 50000 ELSE IF KX=8 TH 
EN 50000 ELSE IF KX-12 THEN 50000 ELSE I 
F KX«xi* THEN 50000 

25031 CC-243:OX=KX:QV=KY:G0T0 50500 
39990 REM «« TANTEO, RESULT ADO >s» 

|M?1« Z !S CHR * !30UPRINT sc «TflBflO) S HI 

40005 IF SOHI THEN HI-SC:G0TO 40000 
40010 RETURN 

49990 REM ?«< CANGURO SALYADO »» 
50000 IF CH<>32 THEN 50500 ELSE h>234 ■ SO 
SUB &90iSC=SC+5;KAB=KAB-M:F0R N»* To ^-F 
^NExt™ 2 °° STEP 10s30UND t*SO t I»NE;XT 

50005 IF KAB*4 THEN 3lO ELSE KX = 10»KY=-"' 
: GOTO 790 

50490 REM «« CANGURO ATRARADO »>£* 

50500 GOSUB 690: SOUND 1 , 1 000 , 30 - SOUND 1 

-?™oy?22° SUB 6?3: ™ =Kft ~ l ' K^ipiKY*22i OX 

S32 ££*; THEN G0Sue ****** *» 

Ahara un« con * MERGE =* las subrutinas de 
'entrada de caracteres' , 7 cofNprobaci on 
de caracteres' y * puntuacion Mtaxitt*?-. 
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jAcci&n a tope/ 

Est© juego, ©I fercero de Arcada, esta vagarnent© inspirado en una 
serte de juegos en que el he roe salta obstaculos v sube escaleras 
para ir ascendiendo por la pantalla. 

El monsiruo malevotc qua aperece en cada pantalla ha secues- 
trado a la novia del heroe, encerrandola. Ahora se dedica todn el 
tiempo a lanzarle barriles rodando para aplastarlo. 

Hav irBS paniallas disimias en la ascension, y se van obtenien- 
do mayores puntuaciones con laa diferentes pantalla 9. 

Movemos a nuestro heroe con las ya conc-cidas flachas o con 
el -joystick*, y podemos hacerle saltar sobra los obstaculos con la 
tec la "COPY". 

Siguiendo las insifucciones del capitulo que tratan score su* 
brutinas, podemos cargar con "MERGE" la subrutina "Puntuacidn 
maxima", que parmitira' establecer una galeria de famosos 
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1 REM KINKEY DONG 

2 REM 

SOO SYMBOL AFTER "^a 

510 SYMBOL 241 iA n , ,, 

520 SYMBOL Sj* K'J? *•£*•?*> ***«»« A*. « 

530 SYMBOL «.*».««, iftB^^^^ 

560 SYMBOL 24a ipa ioi it'"" S,B,S6 

600 MEMORY 34495 
?50 GOSUB 220O0 
1000 GOSUB 20000 
1100 GOSUB 19000 

e1i6 If HK2 THEr; GDSUB 2U00 

J;; IF LEy*3 THeN 50SUB 213flrt 
1540 GOSUB 21500 ^ 

1550 Xi=2:Y=23 

1560 BX-l sB y t 7:BD-l lS F=0 

530 Ef1%2^ ,ra ~*«» 

15B0 IF LEV=3 THEM BX»7iCX*i-* 
1300 GOSUB 24000 «W« 
1B10 GOSUP 25000 
1820 GOSUB 24500 
1S30 PEN 7 



fo2? J:°^I E ^V; PRINT „i, 



1350 GOSUB 23000 

S8 && 2$ SDT0 *» 

1390 GOSUB 30000 

1B90 IF CH0241 M CH032 THEM GOTO 500 

1?00 LOCATE X.Y+1 

1910 GOSUB 30000 

1?20 IF CH-32 THEM Y*Y+1 

1940 PEN 7 

1950 LOCATE BX. BY- pri nt Db * 

3060 LOCATE 7 . 25: PRINT SC 
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3070 GOTO 1300 

5000 SOUND 2.300.-5,15,0,0.30 

5010 LI-Ll-lsJF LI^O THEN GOTO £.000 

5020 POP M=l TO LI 

5030 LOCATE 17+N.25 

5040 NEXT N 

5050 FPUsT " u | 

50 iO GOTO 1500 

£000 CLS 

6005 PRINT: FEN 3 

6010 PRINT " EL RERVERSO MONO !" 

6020 PRINT " r*» '" 

6030 LOCATE 3. 10: PRINT "TU MARCA -jBC; 
6040 LOCATE 5, 25; PRINT "PULSA UNA TECLA" 
6050 A*=INKEV*:IF &#*»■* THEN GOTO 6050 
6060 SOUND 1,250,25.15 
6070 GOTO 1000 

9980 REM :>>>>>>> MQNSTRUO ««i<« 
10000 SYMBOL 223,0,0.16.44,-2,23.56.112 
ICO 10 SYMBOL 22°, 129,66, 126.90, 126.104, 3 

10020 SYMBOL 230,0,0,3,52,124,56,28,14 
10030 SYMBOL 231,112,121.127,63,31.7,1,1 
10040 SYMBOL 232,60,255*255,255,231.215, 

235. 213 

10050 SYMBOL 233,14.153.254,252,248,224, 

12S, 128 

10060 SYMBOL 234,1,3*15,15,31,63,62,62 

10070 SYMBOL 235.171,213.235,215.235.255 

,60,0 

10080 SYMBOL 236, ! 28. 192, 240. 2 40, 248, 252 

124 , 124 
10090 SYMBOL 237,30,15.15.3.59,127,127,5 

7 

10100 SYMBOL 233,0,0,0.0,129,195.195,129 

10110 SYMBOL 239,3 20.240,240.192.220,254 

,254, 156 

10120 PEN 15 

10130 LOCATE 2,1: PRINT CHR* (22S> : CHR* (22 

9>:CHR*(230) 

10140 LOCATE 2. 2? PRINT CHR* (231 > it CHRS (23 

2>;CHR$<233> 

10150 LOCATE 2.3: PRINT CHR* (234) ; CHR* (23 

5 J ,CHR5(236> 

10160 LOCATE 2, 4: PRINT CHR* (237) : CHR* (23 
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S):CHR*(239> 

10200 RETURN 

1S9B0 REM >>>>> COM I EN? A EL JUEGO <«« 

19000 5C^0jLI=3 

19010 LEV=1 

19020 L*~CHR*{241) 

19030 B*=CHR*<2425 :M*=CHR*<244> 

19100 RETURN 

19980 REM » DEFINICIDN DE PANTALLA << 

20000 RESTORE 20000 

20010 FOR N^O TO 15 

20020 READ A 

2QO30 INK N,A 

20040 NEXT N 

20050 BORDER 0; PAPER 0:FEN 1 : MODE 

20100 RETURN 

20200 DATA 0,10,6,24,20,7,15,2 

202 io DATA 22,12,17,9,26,3,22,13 

209SO REM >»»» PANTALLA <<<<<<< 

21000 P*=STRING*<20,243) 

210 to CLS:PE=1 

21020 FOR U-B TO 24 ST£ P 4 

21025 PEN PE 

21030 LOCATE !,N: PRINT P* 

21040 PE=PE+1 

21070 NEXT N 

210S0 RETURN 

21095 REM * * * UNO * * * 

21100 GOSUB 21000 

21120 FOR M»S TO 20 STEP 4 

21130 PO=RND < 1 ) * 17+2 

21140 IF N<!24 THEN LOCATE PO.N: PRINT " " 

21150 LR0-RND(l>*17+2: IF LPO-PD THEN GOT 

21150 

21160 IF N<24 THEN PO=LPD:GDSUB 21700 

21170 PEN 10 

211 BO NEXT N 

21190 RETURN 

SI 195 REM % * S DOE * * * 

21200 GOSUB 21000 

21205 PEN 12 

2i:\i'-- : -up }-\r] 3 TO 24 

21220 LOCATE 7. M* PRINT STRING* (8, 207) 

21230 NEXT N 

21240 LOCATE 7, 19: PRINT STRING? <S, 32) 
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21250 LOCATE 7,23iPRINT STRING* <S, 32) 

21260 LOCATE 7, 15s PRINT STRING* <e, 32) 

21270 P0^B:N»8:G0SUE 21700s PQ=1 St N=l2t 60 

SUB 21700 

21275 P0-3:N=16:GQSUE 21700: P0=1S: N=20t G 

OSUB 21700 

21260 PEN 10 

21292 RETURN 

21295 REM K * * TREE * * * 

21300 BDSUB 21000 

21310 LOCATE 1,8: PRINT STRING* (5, 32> 

21320 LOCATE 16,9rPRINT STRING* (5. 32) 

21330 LOCATE 1,12:PFINT STRING* t 4, 32 > 

21340 LOCATE 17, 12: PRINT STRING* (4, 32 } 

21350 LOCATE 1,16: PRINT STRING* ( 2. 32 I 

21360 LOCATE 19, 16c PRINT STRING* t2. 32) 

21370 R0=7:N=12: GOSUB 21700 

213S0 F0-14:N« 12: GOSUB 21700 

21390 P0-2:N=20: GOSUB 21700 

21400 PD= 19 :N=20: GOSUB 21700 

21410 P0=9:N^i6:GaSUB 21700 

21420 P0=12:N=16:GDSUB 21^00 

21430 PO=10:N=8: GOSUB 21700 

21440 PO-IIiN-BtGOSUE 21700 

21450 LOCATE 6,20: PRINT " ": LOCATE 15.20 

: PRINT " " 

21455 PEN 10 

214B0 RETURN 

21490 REM * * * REMATE * * * 

21500 LOCATE 1,25 

21505 PEN 10 

21510 PRINT'TANTEO'^SC 

21520 LOCATE 16,25 

21525 PEW 6 

21530 FDR N=l TO LI 

21540 PRINT CHR*<248>; 

21550 NEXT N 

21555 PEN 7 

21360 LOCATE 15,6iPRINT STRING* <5, 243) 

21570 RLDT 0,325: DRAW 150,325 

21EB0 PD= 18: N=2: GOSUB 217O0 

21650 GOSUB 10000 

216B0 RETURN 

21690 * * * E SCALER A * * * 

21700 FOR 2«0 TO 3 
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21705 
21710 
21720 
21730 
21740 
219S0 
22000 
22010 
22150 
22980 
23000 
231550 
(2451 
2306O 
*<244) 
23070 
00 

23020 
23090 
23250 
23300 
23305 
23310 
23320 
23350 
23360 
23370 
23380 
23400 
23405 
23410 
23420 
23500 
= 1 

23510 
23520 
23530 
23540 
236 10 
23650 
23&6C 
23670 
236S0 
23690 
23700 



PEN 7 

LOCATE PO.N+Z 

PRINT L* 

NEXT Z 

RETURN 

REM »>>> INICIALIZACION <<«< 

ADDR=34999:G0BUB 29500 

LDCA=35024: GOSUB 30500 

RETURN 

REN »>» MOVIMIENTO <<«C 

GOSUB 29000 

IF LE=1 AND X>2 THEN X=X-i: M*=CHR* 

IF RI=1 AND X<19 THEN X=X + 1 : M*=CHR 

IF UP=1 THEN MS=CHR<5(246) : GOTO 233 

IF D0=1 THEN M*=CHR*f246>:G0T0 2^4 

IF FI=I THEN GOTO 23500 

RETURN 

LOCATE X.Y-1 

GOSUB 30000 

IF CH0241 THEN GOTO 23350 

Y=Y-1:G0T0 23020 

LOCATE X.Y+1 

GOSUB 30000 

IF CH=241 THEN GOTO 23320 

GOTO 23060 

LOCATE X.Y+1 

GOSUB 30000 

IF CH0241 THEN GOTO 2309O 

Y=Y-1:GDT0 23O90 

XF MS=CHR*(245> THEN XD^-1 ELSE XD 

IF X<2 OR XM9 THEN XD=0 

IF M«»CHR*(24&> THEN XD=-0 

LOCATE BX. BY: PRINT ob* 

LOCATE CX.CYtFRINT ocS 

RESTORE 23750 

FOR N-l TG 6 

READ A 

Y-Y+A: GOSUB 23S50 

IF PLAT=1 THEN N^I I 

NEXT N 

GOSUB 24500 



Kinkny 167 



23710 

23S50 
23360 
23S70 
23SS0 
23900 
23910 
23920 
23925 
23930 
23935 
23940 
23950 
£3960 
23980 

— . FTti 

24000 

24010 

24020 

24050 

24100 

24490 

24500 

24510 

24520 

24530 

24540 

24550 

24560 

2 fl 570 

24580 

24600 

24980 

25000 

25005 

25010 

25020 

= 1 

25030 

25040 

25050 

25060 

25070 

=1 



RETURN 

DATA -1.-1.0,0.1,1 

X=X+XD:PLAT»6 

L DC ATE X.Y+i 

GOSUB 30000 

IF CH<>32 THEN PLAT=1 ; RETURN 

GOSUB 24000 

GOSUB 24500 

SOUND 2. 100,2. 15 

FEN 7 

LOCATE BX, BY: PRINT ob* 

LOCATE CX. CY; PRINT Dt$ 

GGSUB 25000 

LOCATE X.Y: PRINT ojfl* 

RETURN 

REM >»» IMPRIME <<<<< 

REM t * * HOMBRE * * * 

LOCATE X.Y! GOSUB 30000 

OM*=CHR*<CH> 

REN 2 

PRINT M* 

RETURN 

REM * t * BARRILES * * * 

LOCATE BX, BY: GOSUB 30000 

Dbf-CHR* CCH) 

LOCATE CX. CY j GOSUB 30000 

ocS^CHR* tCH) 

PEN 3 

LOCATE BX,BY 

PRINT BS 

LOCATE CX.CY 

PRINT BS 

RETURN 

REM >>»> BARRIL <«<< 

A=RND { 1 > * 1 

LOCATE BX.BY+1 

GOSUB 30000 

IF CH^32 OR CH=241 AND A>5 THEN BE 

IF CH=243 THEN BE=0 

BY-BY+BE: IF BE =0 THEN BX=BX+BD 

LOCATE CX.CY+1 

GDSUB 30000 

IF CH-32 OR CH=241 AND A>5 THEN CE 
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250S0 IF GH=243 THEN CE=*0 

25090 CV«*t:Y+CEa IF CE-0 THEN CX=CX+CD 

25100 IF BX<2 THEM BP^i 

2S105 IF B3CM9 THEN BD=-1 
251 lO IF CX<2 THEN CD-I 
25115 IF CiC>19 THEN CD=-1 

25130 IF <BX:2 OR EX: -I9> AND BV=23 THEN 
BX=lt;B&»i E BtY*?«tF LEV=3 THEN B»~ 
25140 IF (GX<2 OR CX>1?> AND CY=23 THEN 
CX=20:CD^-1:CY=7:IF LEV=- THEN CX=1~ 
352SQ RETURN 

HhorRt una can 'MERGE" las subrutinas da 
'entrada de izar*cleire^ y * comprobacion 
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El ahogado 




Defetreor o nectar 

Esta ©s una versidn mas divertida y humana del bien conocido jue- 
go del ahorcado. Si el Jugador no es capaz de acertar la palabra a 
tiempo, todas ias ietras equlvocadas enviaran all personaje al agua. 

Las palabras pueden tener hasta 8 caracteres de longitud, pero 
no pueden coniener gurones. En el Irstado hay 60 palabras distin- 
tas. sa puede aumentar la tisia de palabras, o cembiar las ya 
exist antes. 

Si acierta una letra, esta apafecerS an su posicidn dentro de 
la palabra precisa; si no. la vfctima sera empujada una postcion ha- 
cia eS agua. Si se acierta a liempo, nuestro figurin empuja a todas 
las letras incorrectas hacia atras y aparece otra rnisteriosa palabra. 

Si no se acierta. no se mostrara' la palabra correcta, y al estar 
estas seleccionadas al azar, pudiara ser elegida de nuevo mds 
adelante, 
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|EI programa es entretenido, educatfvo y puede ser que incluso 
cree hdhiio! 

1 REM «<< AHOEADO >>> 

500 RANDOMIZE TIME 

1000 GQSLfE 2100O 

1S00 RANDOMIZE TIME 

1510 W-INT(RND<1>*60>+1 

1520 W*=D* (W) 

1530 GOSUB 20000 

1600 GOSUB 24000 

16 10 FLAG^O 

1650 IF T*-W* THEN GOTO 3000 

tw ™« EN<G * ,=Sl ° THEN GDT 2000 
1470 GOTO 1600 

tWO REM * * * PERDER * * * 

2000 GCSUB 23000 

2010 RESTORE 2000 

2020 FOR N=l TO 10 

2030 READ A.B 

2040 SOUND 2, A. 8,15 

2050 NEXT N 

2060 DATA 253,20,284,20,319,50 ^84 2G 

2070 DATA 319, 20, 358, 50 31 9 20 ^ ^ 

20S0 DATA 379,50,350,50 

2400 CLS 

2410 LOCATE 4,3;PRINT 

2500 GOTO 3500 

2990 REM * * * GANAR 

3000 RESTORE 3000 

3010 FOR N=l TO 16 

3020 READ A,B 

3030 SOUND 2,A,B,15 

3040 NEXT N 

-s2^0 IF G*= 11 " THEN GOTO 34B0 
3230 FOR N=LEN<G*.> TO 1 STEP-1 
3240 G*=RIGHT* <G*.N-1) 
3260 GOSUB 241 10: PRINT" " 
3270 SOUND 1,N*20,2, IS 
32S0 FOR P^l TO 500 



'MALA SUERTE ! " 



* * * 



3290 NEXT P 

3300 NEXT N 

3480 CLS 

3490 LOCATE 2, 3: PRINT"ENH0RABUENA ! ! " 

3500 LOCATE 3, 20: PRINT" PULSAR UNA TECLA" 

3520 A*=INKEY* 

3530 IF A*=" " THEN GOTO 3520 

3540 GOTO 1500 

199E0 REM «««< PANTALLA »»>» 

20000 RESTORE 20000 

20010 FOR N=0 TO 15 

20020 READ A 

20030 INK N,A 

20040 NEXT N 

20050 DATA 0.20,2,18,6,24,26,0 

20060 DATA 0,0,0,0*0,0,0,0 

20100 BORDER 1 PAPER & PEN 1 : NODE O 

20110 LOCATE B. 1 : PRINT"AHQGADO" 

20120 AS-OHRS < 196) +CHRf i 198> s A*=A*+A*+A* 

+A*+A*.+A*+A* 

20130 PEN 6 

20140 LOCATE 4. 2: PRINT At 

20150 PEN 4 

20160 LOCATE l.lliPRINT STRING* < 10, 207) + 

CHR* (223) 

20170 LOCATE 10, 12: PRINT CHR* (22 J > 

20 ISO LOCATE 1 1. 12: PRINT CHR* <207> 

20190 LOCATE 12,12:PRINT CHR* (223) 

20210 FOR N=l TO 10 

20220 LOCATE 12,14+N 

20230 PAPER 2: REN 3 

20235 IF N<3 THEN PAPER 

20240 PRINT CHR* (21 1 > ; STRING* C6. 32) i CHR* 

(209) j 

20250 NEXT N 

20260 LOCATE 12,25:PRINT CHR* (205) < STRIN 

G*(6.210>:CHR*<204) 5 

20300 RESTORE 20300 

20310 FOP N=8 TO 14 

20320 PAPER 0:FEN N 

20330 READ A.E 

20340 LOCATE A.B 

20350 PRINT CHR* (2491; 

20360 NEXT N 

20370 DATA 11,10.12,11,13,12.14,13 



, 
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20400 

20410 

20420 

20430 

20440 

20450 

20490 

20 500 

20510 

20520 

20530 

20540 

20550 

20560 

20580 

20750 

209E0 

21000 

21010 

21020 

21030 

21040 

21250 

22960 

23000 

23010 

23020 

23030 

23040 

23050 

23060 

23070 

230B0 

23090 

23100 

23110 

23250 

239S0 

24000 

24010 



24020 

24030 

24040 



15, 14, lii. 15, 16, 16 

510, ISO,-. DRAW 560,160 

47S„ 150; DRAW 420,160 

510, 155: DRAW 

478, 155: DRAW 

520. 147: DRAW 

468,1 47: DRAW 



540,180 
44B.180 
590,150 

399, 150 



w'< 



1.10: PRINT 
2,20:PRINT 



CHR*<248> 
"ADIVINA" 



>»»> 



DATA 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

PLOT 

REN 5 

LOCATE 1. 13:PRINT"PALABRAs 

LOCATE 2. 17:T*= M ":5*.= »" 

FOR N=l TO LEN<W*> 

PRINT"-" t :T*=T*+" " 

NEXT N 

PEN 3 

LOCATE 

LOCATE 

RETURN 

REM «<«< INICIALIZAR 

RESTORE 30000 

DIM D*C60> 

FOR N=l TO 60 

READ D*<N> 

NEXT N 

RETURN 

REM :«<<, CALARSE *»» 

LOCATE 11. 10: PRINT" " 

FOR N*=q TO 14 

INK N.24 

SOUND 2,300-N*10,25, 15 

FOR 0-1 TO 250 

NEXT Q 

INK N.O 

NEXT N:INK 14,24 

INK 7,26:S0UND 2,300,50,13.0.0,31 

FOR N-i TO 250 

NEXT N 

INK 7,0: INK 14,0 

RETURN 

REN <<«< INPUT >»» 

A* = I NKE Y* : A$ =URPER $ ( A * > 

IF A*<"A" DR A*>"Z" THEN GOTO 2400 

SOUND 2,200, 10, 15 

FLAG^O:PEN 4 

FOR N=l TO LENCWS) 
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24050 IF MID*(US.N, 1)*A* THEN LOCATE 1+N 

, 16: PRINT AS: MID* t T*, N, 1 > =A*; FLAG^l 

24060 NEXT N 

24070 IF FLAG=0 THEN GOTO 24100 

24080 SOUND 2,150,50.15 

24090 RETURN 

24100 G*=AS+G* 

24H0 LOCATE 1,10: PEN 4 

24120 IF LEN<GS1 /2=1NT <LEN<G$) /2i THEN A 

=250 ELSE A=251 

24130 PEN 3s PRINT G*;CHR*<A>3 

24140 RETURN 

29980 REM <<<<< PALABRAS >»» 

30000 DATA AMSTRAD , AGUDO , CORTO . LARGO , E XO 

TICO, GLORIA, LIRICO. METAL, PRIMAVERA.RITMO 

30010 DATA FASCISTA,MISTICD.RUIDO,PULPQ n 

ENANO, C ALLE , GI GANTE , JUG ADDR . DEST I NO , FUTU 

RO 

30020 DATA RASADO. PRESENTE, LENTEJAS, JUDI 

A,LECHUGA,T0MATE,GARBAN20.MAII,ACEITE.VI 

NAGRE 

30030 DATA N ARAN J A, LIMDN, MELDCOTON, PERA, 

MAN I ANA , PLATANO , SAND I A , MELON . POMELO , CERE 

2A 

30040 DATA MADRID, VALENCIA, 3EV ILL A, B I LEA 

. ORENSE , MURC I A , CUENCA , TENER I FE , MALAGA , I 

BIZA 

30050 DATA LDCO, LIETO, TONTO* INUTIL, PELMA 

, BELLA , HORRIBLE, VINO, ALCOHOL , TABACO 
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Aritmetica 




Diet sabre diez 

Este senciUo programs tiene preguntas para nines, jdvenes y ma- 
yores, es decir, para todo el mundo. La preounta puede ser de cual- 
quier tipo sobre suma, resta, multiplieacidn o division. Laspregun- 
las v respuestas esian dentro de una pizarra que aparece en la pan- 
talfa para que ta presentation sea mas atractiva. 

En el nivet mas be jo, el problema te en contar los dos con jun- 
tos formados por hombrecillos hesta llegar a) total. En ei nivet in- 
termedin ya hay fos cuatro tipos de operaciones ariimeticas y sa 
plantean pregumas cuyas respuestas son un numero Los adoles- 
centes y aduhos deben ser capaces de dar Fa solucirjn men- 
talmente. 

El nivel superior requiere una gran habilidad aritmetica y est3 
disefiado para que se resuelvan con papal y lapiz o incluso con 
calculadora. 

Las respuestas se teclean y se mandan af ordenador mediante 
fa tacla "Enter". 



AtitmAticn 1&5 

Se pueden corregjr (as contestaciones siempro que no se haya 
llegado a pulsar "Enter". Despues de dos intentos fallidos, el or^ 
denador presenta la respuesia correct en pantaHa. 

Despues de ta decima pregunta, el ordenador muestra un in- 
forme con el numero de respuestas correct as y el porcentaje de 
puntuacion, 

Se puede cargar con "MERGE", el programa "Fronton arco 
iris", despues se ej ecu tan "RENUM 40000,5". Esta puede ser una 
buena recompense para quien consiga diei sobra diez 



1 REM ««< ARITMETICA >»>> 

2 REM 

1200 GOSUB 20000 

1300 LOCATE #1,2,3: PRINT #1, " 1>INIC1D" 

1310 LOCATE #1,2, 5: PRINT #1 , "2>MEDI0" 

1320 LOCATE #1,2, 7: PRINT #1 , ■3>ALT0" 

1330 A*=INKEY« 

1340 IF A* ■:"l" OR A*>"3" THEN SOTO 1330 

1350 SOUND 2,300,50,15 

1360 LEV=YAL(A*> 

1390 GOTO 30000 

19980 REM ««<< PANTALLA >»>>> 

20000 RESTORE 20000 

20010 FDR N=0 TO 7 

20020 READ A 

20030 INK N,A 

200*0 NEXT N 

20050 DATA 2, 0, 26, 24, 6, 18, 7, 13 

200SO BORDER 2: PAPER OtPEN 6: MODE O 

20070 FOR N-320 TD 335 STEP 4 

20080 PL^T N, 3B0,6iDRAWR SO, -330 

20090 NEXT N 

20100 FOR N=320 TO 305 STEP -4 

20110 PLOT N.3S0,6:DRAWR -80,-330 

20120 NEXT N 

20130 WINDOW #1,6,15,6,17 

20140 WINDOW #2,8,13,14,14 

20150 PAPER #1.1: PEN ttl,2:CLS #1 

20160 PAPER #2,1: PEN #2,2iCL5 #2 

20250 RETURN 

20980 REN '-. < < i < 1 NPUT > >»5 

21000 INPUT #2,G* 

21010 IF GS^"" THEN 21000 



1 66 Juitgas settsacioniifos para AMSIRA 



21 020 
21030 
21040 

21490 

21500 

21510 

21520 

21530 

5 

21540 

21542 

21544 

21546 

2154B 



C0R=1 

IF 0AL<6*X>ANS THEN CDR^O 

RETURN 

REM * * it AD I VINA * * * 

FOR G=i TO 2 

GOSUB 21000 

IF COR-1 THEN GOTO 21560 

BOUND 2,500.40, 15: SOUND 2,750,50,1 



A, 20, 15 



NEXT G 
RESTORE 21542 

FOR N=l TO 9 
READ A: SOUND 2, 
NEXT IM 

5^2. , DflTA 2 ° Cl 25 °< 300 ' 250 ' Z0 ^ 35 °. 300 , 3 

21552 SOUND 2.600,75,15 

21555 GOTO 21590 

21560 SOUND 2, 600, 30, 15 : SOUND 2,400,30 1 

5; SOUND 2,200,30,15 &>**Q*l 

21570 G-2 

T0T=T0T+1 

CLS #lsCLS #2 

RETURN 

REM <«« OFEPACION 

CLS #1:CLS #2 

LOCATE #1,2, 2: PR INT 

LOCATE *1.2,4iPRlNT 
2, 6s PRINT 
2,S:PRINT 



215B0 
21590 
21600 
219B0 
22000 
22010 
22020 
22030 
22040 
<172S 
22050 
22060 
O 

22070 
2 20 BO 
22090 
22100 
22110 
(172) 
22200 
229B0 
23000 
23010 
23020 



>»>> 



#1 



LOCATE 
LOCATE 



#1 



i ii i ii 



#1 
#1 
#1 



"1 

"2> 
"3> 
w 4> 



* _ ► 



CHP* 



A*=INKEV* 
IF A*<" 1" 



OR A*>"4" THEN GOTO 220! 



THEN 
THEN 
THEN 



^BjS*=' 

DEF FN 
DEF FN 
DEF FN 



Z=UAL<A1i> 
DEF PN BUN=A- 
IF 1=2 

IF Z=3 

IP 2=4 

DIV=1 

RETURN 

REM <«« INICIALIZACION 

LIM=BsDlV=0 

IP LEU-2 THEN LIM= 12: GOSUB 22000 

IF LEV=3 TH£H LIN-25; GOSUB 22000 



SUM=A-B:S$="-" 
SUM=A*P;5*="x*' 

SUN-A/B:B*=CHR* 



>>>>> 



ArilmWc* 167 

23030 CLS 1* 1 : CLS #2 

23040 TOT"© 

23100 RETURN 

239B0 REM <«<< NUMEROS >>>» 

24000 RANDOMIZE TIME 

24010 A=INT CRND(l) *L1M)+1 

24020 B=INT(RND(1>*LIM>+1 

24030 IP DIV=1 THEN A=A*B 

24035 IF LE7=2 THEN DIV^O 

24040 CLS #1:CLS #2 

24050 IP LEV^l THEN GOTO 24150 

24060 LOCATE #1,1, 3: PRINT #l,AsSt:B 

24070 ANS=FN BUM 

24100 RETURN 

24150 LOCATE #1,2, 3 J PR I NT #1 . STRING* <A,2 

50>:L0CATE #1 , 3, 5| PRINT #1,"+" 

24160 LOCATE #1,2, 7: PRINT #1 , STRING** B, 2 

50) 

24190 ANS=A+B 

24200 RETURN 

29980 FjgM <<<<< BUCLE PRINCIPAL >»» 

30000 GOSUB 23000 

30010 FOR P=l TO 10 

30040 GOSUB 24000 

30050 GOSUB 21500 

30100 NEXT P 

30150 CLS ttl:CLS #2 

30160 PRINT *i," NOT AS." 

"^0170 PRINT #1," -" " 

30180 LOCATE #1,2, 5s PRINT #1 , TOTi "PUERON 
pi 

30190 LOCATE HI. 2. 7! PRINT #1 , "CDRRECTAS. 
ii 

30200 LOCATE #1,3, 9: PRINT HI , TOT/ 10* 100; 

(iy ii 

30250 LOCATE 2, 25s PRINT "PULSAR UNA TECL 

A" 

30260 A*=INKEY* 

30270 IF A*=" " THEN GOTO 30260 

30280 LOCATE 2, 25; PRINT SPC(16> 

30290 CLS #1;CLS #2 

30300 GOSUB 40000 

30310 GOTO 1300 

40000 RETURN 
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...y 4e$pu&$ ef mundo enter o 

Este as un concurso de preguntas sobre geografla. basado en un 
mapa de Gran Bretarta El juego es facft de seguir Se (rata de res- 
ponder a preguntas sobre ciudades importantas y el condado a I 
que pertenecen. Se le puede pedir ef condado, la ciudad, o ambos 
Un punto en el mapa represents el emplaiamiento de la ciudad. 

Se puede modifier el nucleo del programs para precisar mas 
ncluso drbujar el mapa mundi como sugiere el 



el mapa, o 

SUbtftuJo 



El programa del 'Editor de pantsllas", que aparece un poco 
mas adalante en este libro, le sera utrl para idemificar los puntos 
que hay que dlbujar. 

El mapa de este programa se consiguid calcando uno de Gran 
Breiafia sobre la pantalla Estaba hecho an una hoja de acetate 
transparente, de modo que podfamos mover el cursor hasta cada 
punto, anotar las coordenadas (x,y) de cada uno y despuea mover 



haste el punio siouiente. Ef resultado puede ser tan perfeclo como 
at modo elegido y su pacieneia se lo permitan. 

Otra forma de desarrollar mas este programa es aumentando 
el numero de condados y ciudades, Puede que sea m3s educative 
la propia busqueda de documentaci6n que esto implies que el pro- 
grams en si. 



10 
11 

15 

U 

20 

30 

O" 

3^ 

40 

60 

70 

SO 

90 

100 

110 

120 

130 

140 

150 

ISO 

165 

210 

220 



REM ',«< REINO UNIDO 

REM 

REM 

REM 

GOSUE 1500 

MODE ll LOCATE 

INK 0.0: BORDER i 

BC-0 



SV 



1: PRINT "REINO UNID 



2. 6s PRINT 
10.8:PRINT 
10,?tPRINT 
10, 10s PRINT 



LOCATE 

LOCATE 

LOCATE 

LOCATE 
At-INKEV* 
IF A*="l" 
IF A*="2" 
IF AS^'3' 1 
GOTO 100 
GOSUB 900 
RESTORE 1270 
IF QP 



ELIGE 

L . h i 



OPCION" 
COMARCA" 

, CIUDAD- 1 
. . AMBAS" 



THEN 

THEN 
THEN 



OP- 1: GOTO 

0P=2cG0T0 
OF-?.: GOTO 



150 
150 
150 



REM >>> 
FOR C=l 
230 READ N*, X 
240 PLOT X*v. 
250 IF QF=1 
IUDAD ES ■ 
260 IF DF-1 



THEN 630 
ELEGIDO CIUDAD 
TO 16 
Y.CO* 



COMARCA >» 



THEN LOCATE 23 ,5: PRINT "LA C 



270 IF 
OMARCA 
2B0 IF 
290 TR=3 
300 IF op 
OMARCA 
: PRINT 
310 IF 



0F=2 

ES " 
0P=2 



THEN LOCATE 23, 7: PRINT N* 
THEN LDCATE 23. 5: PRINT "LA 



THEN LOCATE 23,7 s PRINT COS 



1 THEN LOCATE 23,?: 
ES" ELSE IF 0P=2 THEN 
"LA CIUDAD ES" 
0P=1 THEN INPUT #3. " 



PRINT 
LOCATE 



"LA C 
23,9 



"jC*:C*=JP 



PEP*'CSJ 



I 
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320 IF 0P=2 THEN INPUT K3. ■ "iCi*. C T*- 
UPPER*(CI*> ICIS.CI*- 

330 IF 0F=I AND Ct£=C0* THEN 420 
340 IF 0P=2 AND CI*=N* THEN 420 

350 TR=TR-1:LDCATE 26, 20s PRINT "INTENTQS 
"»TR 

360 LOCATE 30.22i PRINT SFCQ4) 

370 SOS'JB 1500 

3BO LOCATE 26. 20: PRINT SPC(14) 

390 LOCATE 30, 22; PRINT SPC<6) 

40O IF TR^O THEN 5000 

410 GOTO 300 

420 GOSUB 1440 

430 LOCATE 26,1©* PRINT "CORRECTO" 

440 GOSUB 1500 

450 SC-SC+TR 

460 PLOT X.Y.0 

470 PRINT #3 

430 PLOT 0,0, 1 

490 GOSUB 1440 

500 NEXT C 

510 CLS:PRINTiPRlNT " 
" PONT OS 

520 PRINT: PRINT: PRINT 
ID' PARA SEGUIR " 
530 PR I NT: PR I Ml " 



TO PUNTUACION";SC: 

PULSA ' EEPAC 

'0' PARA TERMINAR 



540 A*=INKEY*:A$=UPPER*<AS> 
550 IF A*a» '■ THEN 30 

SAO IP A*="Q" THEN END 
570 GOTO 540 

*™ ™ >W ELEGIDO CIUDAD Y CDNARCA «< 

630 FOR C=l TO 16 

640 READ N4.X,y,c*:PL0T X.Y ^ 

*?2 x2 C ^ TE 27,9: PRINT " LA CIUDAD ES" 

660 TR=3 

670 INPUT #3," ":CIS 

680 IF CI£=N4 THEN GDSUB 1440s LOCATE * v 5 

10: PRINT "CORRECTO": GOSUB 1500s SC=SC+TR- 

60SUB 1440: GOTO 750 

690 TR=TR-1 

700 LOCATE 26, 20: PRINT Jl INTENTQS '• • TR 

720 GOSUB 1500 

725 LOCATE 26. 20: PRINT SPCU4) 



BOO 

820 

B21 

825 

830 

832 

235 

840 

841 

842 

B43 

845 

B*?0 

900 

910 

920 

930 

940 

950 

960 

970 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 



" INTENTOE" :TP 



"LA 
CS 



CONAPCA E8' 



727 IF TR^O THEN 730 ELSE GOTO 670 
730 LOCATE 23,i:FRINT "LA CIUDAD ES" 

740 LOCATE 23, 3i PRINT N* 

750 LOCATE 27,°: PRINT "LA COMARCA ES" 

760 TR=3 

770 INPUT #3, " " J CO* 

780 IF COS^C* THEN 60SUB 1440: LOCATE 25 7 

10; PRINT " CORRECT ": GOSUB 1500: SC=SC+TR 

i GOSUB 1440: GOTO 841 

79© TR-TR-1 

LOCATE 26, 20s PRINT 

GOSUB 1500 

LOCATE 26, 20i PRINT SFCC14? 

IF TR=0 THEN 830 ELSE GOTO 

LOCATE 23. 9: PRINT " 

PRINT #3 

LOCATE 23, 6: PRINT 

LOCATE 23,9: PRINT 

GOSUB 1500 

GOSUB 1440 

PLOT X,Y,0 

NEXT C;GOTD 150 

REM »>>»»»» MAPA <.«««« 

MODE 1 ! WINDOW *3, 20. 40, 1 1 . 1 1 

PLOT 0.0.1 

INK 3,0,26 

RESTORE 1130 

FOR A=l TO 59 

READ X . i 

IF A=l THEN PLOT X.Y ELSE DRAW X.Y 

NEXT A 

FOR A=l TO 17 

READ X,Y 

IF A=l THEN PLOT X.Y ELSE DRAW X»Y 

NEXT A 

FDR A=l TO 4: READ X.Y 

IF A=l THEN PLOT X.Y ELSE DRAW X,Y 

NEXT A 

FOP A^l TO 4: READ X.Y 

IF A«l THEN PLOT X.Y ELSE DRAW X.Y 

NEXT A 

FOR PmX TO 5: READ X.Y 

IF A=l THEN PLOT X.Y ELSE DRAW X,Y 

NEXT A 

RETURN 
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1120 REM > DATDS DEL MARA 

1125 REM INSLATERRA 

1130 DATA 192. 37 1,229,377,234,33?, 21 0,32 

» 2^4, 34 1,258. 333, 258.305,229,287,252,27 

5 

1140 DATA 223,269, 252, 263, 270. 245, ->76 21 

5, 30fc, 203, 31B, 173.294. 179,324, 34°. Tia 13 
7,354,143.360, 113 

U50 DATA 324,83.354,77,330,53.282,61,25 

^47,234,53,216,35,174,23,165.24,210,71, 

246.71,258, 95, 234, S3 

1160 DATA 204,^5,198, 107,216, 113,216. 137 

, 1<?B, 131,216, 155.252, 155, 240, 173, 246. 1=>1 

.234. 191,222,209 

1170 DATA 234,227,204,215,192,227,204,^4 
5, 193,263, ISO, 239, 169,245. ISO, 287, 162,' 2S 
1, 150,317, 168,341, 192,347, 130,365, t°S,35 

9, 192.371 

HBO REM 1RLANDA 

1190 DATA 142,241,172.229.194,199,172,13 

7, 160, 137, 172. 139, 160, 109, US, 103,62,85, 

58, 30. SO, 130, 100, 157,70, 163,32.199.110,2 

00,120.240,142,241 

1200 REM I SLA DE MAM 

1210 DATA 192,181,204,181.210,199.192,13 

1220 REM ANGLESEY 

12c.O DATA 206.157,206,151,210,160,206,15 

1240 REM I SUA DE WRIGHT 

1250 DATA 236,55.280,49.292, 43,295,49, 28 
6, 55 

1260 REM DIUDADES 

1270 DATA MANCHESTER, 258. 171, "GRAM MAMCH 

1230 DATA CHESTER, 252, 149. -CHESHIRE" 

1290 DATA LEED8.2B2. 175, "YORKSHIRE" 
1300 DATA HULL. 308, 181, "NUMBERS IDE" 
1310 DATA LIVERPOOL. 250, 163. "MERSEYS IDE" 
1320 DATA BIRMINGAM, 274, 119, "WEST MIDLAM 

DE- " 

1330 DATA L0NDRES,3ta,B5,"GRAN LONDRE*" 
1340 DATA BRISTOL, 260. 83. "AVON" 
1350 DATA CARDIF,244.95."MID GLAMORGAN » 
1360 DATA CAMBRIDGE, 322. 115. "CAMBR I DGESH 
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137B DATA GLASGDW.216,2*i."STRATHCLYDE" 
1390 DATA ED I MBLlRGO, 239, 261, "LOTH I AM" 

1390 DATA ABERDEEN, 250, 315. "GRAMPIAN" 
1400 DATA NEWCASTLE. 26fc, 223. "NORTHUMBERL 

AND" 

1410 DATA BELFAST, 170, 200. "ARMAGH" 

1420 DATA DUBLIN, 160, 160. "EIRE" 

1430 REM LIMPIAR LA PARTE DERECHA DE LA 

RANT ALL A 

1440 FOR 0=1 TD 24 

1465 S*=STRING$<7,32) 

1470 IF 0-1 THEN LOCATE 20,1: PR INT S* 

1490 IF 0=7 THEM LOCATE 20, 7: PRINT S* 

143- IF Q=6 THEN LOCATE 20, b i PRINT S* 

143' IF 0=9 THEM LOCATE 20, 9: PRINT St 

1485 IF 0=3 THEN LOCATE 20. 3: PRINT S* 

1486 IF 0=3 THEM LOCATE 20, 3: PRINT S* 

1487 LOCATE 25,0: PR INT SPC ( 165 s NEXT 
1490 RETURN 

1500 FOR T=l TO 3000: NEXT T: RETURN 

4990 REM >»»» SIM tNTENTOS ««<« 

5000 GOSUB 1440 

5005 LOCATE 25,3 

5010 PRINT "LA CIUDAD E5" 

5015 LOCATE 21,5 

5020 PRINT N5 

5025 LOCATE 25.10 

5030 PRINT "LA COMARCA E3" 

5035 LOCATE 21.12 

5040 PRINT C04 

5045 GOSUB 1500 

5050 GOSUB 1440 

5055 LOCATE 2 1, 5 1 PR I NT SFC<6> 

5060 LOCATE 21. 12: PRINT SPC<6) 

5065 GOTO 460 
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25 
Editor de caracteres 




D/serie su monstruo 

Construir caracteres puv.de ser tan divide como jugar. Este pro- 
grama perm.te definir con facilidad 32 da fos earaches del Ams- 
trad y luego umrlos para formar dibujos mas complejos. 

En primer lugar se muestran los caracteres contenidos en el 
ordenador. Luego tendrd la opcrtunrdad de adapiarlos, cambiarlos 
o crear los suyos propros. Se puede inmar nota de ta definicidn de 
estos v luego usarlos en sus propios programas utihzando H co- 
ntends Symbol". Pueden cargarse an una cinta conjuntos com- 
pletes de caracteres y as! ir formando una bibfioteca de caracteres. 

En este libra algunos programas utilizan caracteres propios del 
Amstrad y otros han side espeefficamente creados. Con este pro- 
grama se puede mejorar el disefio de nuestros modeios sustan- 
cralmente. jQufia no quiera dajar vivo nr uno ni otroJ 

Debido a la rlquera de posibilidades de este editor, puede ser 
que le Neve algo de liempo aprender a manejarlo. Aqui tiene una 



lista de los cc-mandos posiblas due le puede servtr durante su 
apranduaje. 

Gufa de referenda del constructor de ceracteres 

El programa dibuja una cuadrfcuia y lama et primer caracter. Us* 
ted podra editario, borrarlo o elegir una de las siguientes opciones 
pulsando las letras iniciales: 

Borrar: Borra le cuadrlcula* 

Tomar: Pregunta por el numero de un ceracter Cuando se haya 
introducido al ultimo digito. el caracter aparecera en la cuadrfcu- 
la. Entonces lo puede editar. cambiar... 

Ediier Situa el cursor en el extremo superior izquierdo de la 
coedrlcula. Con las flechas o el .,oy stick- podra mowrio j -»n >l 
borin "COPY" poner guitar un punto. Cuando acaba pulse En- 
ter " y luego el numero de caracter asociado a este. 

Numeros: Pregunta por el numero al cua ' V^Tf/^rT 
racter Necesita ocho numeros, uno para cada Imea de la cuaan 
cula comenzando por la parte superior. Con elia, la Imagen se ge- 
nera directamente. Pulse "Enter" al finaliar su as.gnacidn. 

ReMejo Pregunta por el numero de un carter. Usted podra po- 
nerio boia abajo o bien cambiar la parte derecha por la i.qu.e da. 
La transformation se presenta en pantalla. Para guardarlo selec 
cione "t seguido de "Enter" y del numero de as.gnac^n. 

Vertical (movirmento): Pregunta si arriba o abajo (A, B>y mue- 
ve el caracter una fila hacia arriba o hacia abajo. 

Horizontal (movimiento): igual que el anterior {V> pero con iz- 
quiarda y derecha. 

Intercambiar (cambio en diagonal): Pide do* caracteres V Gam- 
bia enue el los sus numeros de asign acton, 

Construir; Borra la cuadrfcuia y deja una *ona de 14 * 10 ca* 
racteres libre para que usted pruebe c6mo quedan al un.rlos^ Se 
le pregunta por el numero de caracter para que lo posicione don- 
de desee con el cursor o con el ****. Con el boton COPY 
lo deja donde quiera. Pulsando la leda espaciadora sin interrupt 
cidn J a continuaoidn, otro numero y "Enter" podra pos,cionar un 
segundo caracter... Para salir de esta opd6n pulse Enter 



, 
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Save; Le pragunta por el nombre de un fichero. Pulse "PLAV'v 
"RECORD". Al pufsar "Enter" grabara en cinta su conjunlo de 
carac teres. 



t-oafr. La pregunta el n ombre del fichero de ceracteres. Pulse 
"PLAY" y "Enter" y este se cargarg en el ordenador. 
Nota: En este programs &e ha inutiliiado la tecla "Escape" para 
a vita r posit) I es perdidas de daros. Desconecte para finaliiar. 
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1 REM 

2 REM 

200 CALL &BB03 

500 SPEED WRITE 1 

1000 GOSUB 21000 
GOSUB 20000 
CHAR=1 : GOSUB 22000 
MEMORY 34995 

REM «< BLCLE PRINCIPAL 
A*= I NKEY*: AS -UPPER* { A* ) 



1010 

1020 

1 050 

50 1 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5 1 20 

5130 

5140 

5150 

5170 

9980 

10000 

10040 

10045 

10050 

10060 

10070 

1 00 BO 

10090 

10100 

1011O 

10120 

10980 



»» 



IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 
IF 



THEN GDTD 5030 



THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 



GOSUB 
GOSUB 
GOSUB 

GDSUB 
GOSUB 
GOSUB 
GOSUB 
GOSUB 
GDSUB 
GOSUB 
GOSUB 



10000 

11000 

1 2000 
13000 
14000 
15000 
16000 
17000 
18000 
19000 
19500 



A*-"" 

A*= n B f 

At^'-T" 

A*= ,, E" 

A*^"N" 

A*="R" 

A*="V" 

A*="H" 

A$=" I hl 

A*= M 5" 

A$="L ,J 

AS""C" 
GOTO 5030 

REM «« BORRAR CELDILLA 
PRINT CHR*<23> :CHR4(0>; 
Y=39B 

BS=SPACE*a53 

FOR N=l TO 10 

PLOT 3B2,Y.O 

PRINT #l,B4 

Y=Y-16 

NEXT N 

GOSUB 25000 

PRINT CHR*<23> 

RETURN 

REM «« SACAR CARACTER 



>>» 



;CHR*(l) j 
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11000 

11010 

11020 

1 1 060 

11980 

12000 

1205O 

12060 

12100 

12110 

12120 

12130 

12140 

12150 

12160 

12170 

12180 

12190 



CELDILLA »>> 



GOSUB 10000 

GOSUB 24000 

GDSUB 22000 

RETURN 

REM «« ED1TAR 

PRINT CHRi(23> sCHRtU: : 
PLOT 382.3S2." 
Xi=366+.<*16:Y1=398-Y*16 

MOVE XI, Yl: PRINT *KCHR*n59) 
GDSUB 29000 

x ■■: 

■< .: 3 

¥'>l 

Y<B 



X-X-l 
X = :< + 1 
Y-Y-l 
Y=Y+1 

MOVE XI, Yl: PRINT #LCHRS<l-9>£ 

IF 0=1 THEN GDTD 12300 

IF Fl = i THEN MOVE Xl,Yi:PRlNT #1 



IP 
IP 
IF 

IF 



LE^l 
RI = 1 
UP=1 

DO-1 



AND 
AND 
AND 
AND 



fHEN 
THEN 
THEN 
THEN 



HR* (1-431 3 

12260 GOTO 

12290 

1 2300 

12310 

12320 

12330 

12340 

12350 

12360 

=CHR* < 1 4 

12370 

12360 

12390 

12400 

12410 

12420 

12430 

12440 

1 2980 

13000 

13040 

13050 

13060 

13070 

13090 

13100 



TO O 
(ft.BJOO THEN MID*CX*.M, 



1 2 1 00 
REM i<:« ACABAR 

GOSUB 24000 
B=374 

POR N=l TO 8 
A=390 

FDR M=l 
IF TEST 

) 
A=A+16 
NEXT M 
GOSUB 2SO00 
D tCHAR,N>=X 
B=B- 1 6 
NEXT N 
GOSUB 14560 
RETURN 

REM <«« ENTRADA 
GOSUB 24000 
FDR N=l TO B 

CLS #2 

PRINT #2. "VALOR *\ 

INPUT #2.VA 

IF VA<0 OR VA>255 

D<CHAR.N>=VA 



»» 



1) 



DE DATOS »»> 



N 



THEN GOTO 13060 
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13110 

13160 

13170 

13180 

1 39S0 

14000 

14050 

14060 

1 4070 

14080 

1 4090 

14099 

141O0 

14110 

14120 

14130 

14140 

1 4 1 50 

14160 

14170 

14180 

14490 

14500 

14510 

14520 

1 4530 

14560 

14570 

145BO 

L4S90 

1 4600 

14610 

14980 

1 5000 

>AJ0"; 

15O40 

15O50 

15060 

1 5070 

15080 

15090 

15100 

15110 

15120 

J 51 30 



NEXT N 

CLS #2 

GOSUB 14560 

RETURN 

REM <<« EBPEJO ».: 

GOSUB 24000 

PRINT *£, "CV)ERT/<H>DRIZ" 

B*=INKEY* : BS=UPPER* < B* ) 

IF B*="V" THEN CLS *2:G0T0 14500 

IF B*="H" THEN CLS #2: GOTO 14100 

GOTO 14060 

REN vC<<; HORIZONTAL >»» 

FOR N=l TD B 

X=D (CHAR. N> : GOSUB 23000 

Y$ = "00000000" 

FOP M<=1 TO 8 

MID*(Y*.M,i>=MlD*<X$,9-M, 13 
NEXT M 

<i=Y*: GOSUB 23000: D (CHAR, N) =X 
NEXT N 
GOTO 14560 

REN C<«< VERTICAL >i >>> 
FOR N=l TO B:F (N)=D (CHAR, N) s NEXT N 
FDR N-8 TO 1 STEP -1 
D<CHAR,N)=^r9-N> 
NEXT N 

X= 123* GOSUB 26000 
GOSUB 27000 
GOEUB 10000 
GOSUB 22000 

X=12B: GOSUB 26000 

RETURN 

REM <« NOVIMIENTD VERTICAL >>> 

GOSUB 24000: PRINT #2. ,H ( A) RRIBA/A (8 



'INKEV*: B*-UPREPf <B« > 



BS- 

IF B*="A n THEN CL5 
IF B£="B" THEN CLS 
GOTO 15040 



#2: 
*2: 



GOTO 15120 
GOTO 15090 



ABA JO »: • 



REM < ; 

FOR M=l TO 
GOTO 15210 
REN <«« ARRIBA 
GOSUB 15130; GOTO 

FOR N=l TO 8 



&D5UB L51 - :0:NF/:T M 



15210 
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15140 
I-SIBO 

15170 
15180 
N 
iS190 

15200 
15210 
15230 
159B0 

16':":^:' 

16040 

1 6050 

1 6O60 

1 6.070 

160B0 

16090 

16100 

16110 

16120 

16500 

16510 

16520 

16590 

16600 

16610 

16620 

N X=X 



FtN>*»Q'.CHAR,Nl 
NEXT N 

D(CHAR,S)=F< 1) 

FOR N=2 TO B:D(CHAR. 



N_1>^F(N>:NEXT 



.-:■■:.- 



16100 
16510 



RETURN 

REN «<■-.< FINAL >>>» 

GOSUB 14560 

RETURN 

REM «< MOVIMIENTO HORIZONTAL 

GOSUB 24000 

PRINT tf2, " a>ZDA/tDJCHft": 

Bf * 1 NKEY * : B*=UPPEF ( B* > 

IF BS»"I" THEN CLS «2nG0T0 

IF B*^"D" THEN CLS *2:G0TQ 

GOTO 16050 

REM <«« IZQUIERDA >3 

FOR W-l TO 7: GOSUB 16600 s NEXT M 

GOSUB 14560 

RETURN 

REN «« DERECHA »» 

GOSUB 166001 GOSUB 14560 

RETURN 

REM «« DIVIDIft >'■■ '•■ 

FOR N=l TO B 

F(N>-D(CHAR.N) 

X=F<N> :X=INT<X/2i : IF XOFiN' tl 

128 



THE 



16630 

16640 

16650 

169S0 

17000 

1701O 

1705O 

17070 

17080 

17090 

17100 

17110 

17120 
17130 
17140 
179S0 



D(CHAR.N)=X 
NEXT N 

RETURN 

REM «<< CAMBIAR >»> 

GOSUB 24000 

CHAR1-CHAR 

GDSUB 24000 

FOR N=l TO 3 

F(N)=D(CHAR,N) 

NEXT N 

FOR N=l TO B 

D (CHAR.N) =D (CHARI-, N) ; D (CHAR1 , N> 

NEXT N 

GOSUB 14560 

RETURN 

REN «<< SAVE >>>> 



'FC 
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1800Q 

ISUlO 

18020 

1S030 

IB 040 

1S050 

18980 

19000 

19010 

19020 

19030 

1 9040 

19050 

19060 

19070 

190S0 

194B0 

19500 

19540 

19550 

1 9600 

19610 

19620 

19630 

3)«CHR*(0) 
\ CHR* < 1 ) | 
19635 MOVE 
19640 
l 9650 
23 

19660 X=*X+16* CLE=1 
ND X^590> 

19670 V=V^16*(UP=i 
ND Y>254> 
19680 GOTO 19610 
GOSUB 19850 
80 SUB 10000 
RETURN 
REM ««« 
FRINT CHR*(2: 



PRTMT #2, "NO MERE " 
INPUT #2,N* 

n*=" i ><<*m 

SAVE N*.E, 43776, 256 

CLS tt2 

RETURN 

REM <<<< LOAD >>>> 

X-12S: GOSUB 26000 

PRINT #2,"N0MBRE " 

INPUT #2.N*:N*-" ! «+n* 

LOAD N* 

CLS #2 

GOSUB 21060: GOSUB 27000 

X= 128: GO SUB 26000 

GOSUB 1 0000: GOSUB 22000 

RETURN 

REM «'.« CONSTRUIR DIBUJQ >•» 

6DSUB 19850 

GOSUB 24000: CH=CHAR+223 

PRINT CHR*<23> ; CHR* t 1 > ? 

X=39S:Y=3B2 

HOVE X,¥: PRINT #l.CHR*(CH>s 

GOSUB 29000 

=1 THEN MOVE X,Y: PRINT CHR* { 2 
PRINT #i v -' ";: print CHR*<23> 



IF 
IP 



X,Y: FRINT *H,CHR*<CH>; 
0=1 THEN GOTO 19700 
EX=1 THEN SDSUB 24000: CH- 



CHAR+2 



AND 



J82)-16*(RI=1 A 



AND Y<39B)+16*<D0=1 A 



19700 
19710 
19720 
19840 
19S50 
19860 
1 9870 
19880 
19B90 
1 9900 



FDR H~l TO 10 
LOCATE 24. N 
PRINT SPC(lb) 
NEXT N 
PRINT DHR»(23) 



CLS 
) jCHR*(0> 



J PAPER 



CHR*<1) 
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19910 

199S0 

20000 

20010 

20020 

20030 

20035 

20040 

20050 

20060 



RETURN 

REM <<<< PINTAR PANT ALL A 
INK 0,0: INK 1,24: INK 2,3: 
PAPER O:M0DE li BORDER 
PAPER 2: FOR N=l TO 25 
PRINT SPC (23) : PRINT: NEXT 

TAG #1 

PRINT CHR*<23):CHR*tlU 

PLOT 0,39G,3 

PRINT ttl,"No, ANT NUE No 



>>>> 
INK : 



M 



20070 MOVE 0,332 
200B0 PRINT *1." 



18 



ANT NUE" 



■">01 10 Y~35S 

SJS MGOe'oIyIpRINT ttl ,223 + N:CHR,<223 + N 

20140 MOVE i90,Y, PRINT 41 1 ,239+N.CtfW (239 

+N) n 

20150 Y'Y-22 

20160 NEXT N 

20170 GOSUB 27000 

20180 X=126: GOSUB 26000 

-?0190 GOSUB 25000 

20210 WINDOW #2.25,39,11.13 

2022O PAPER #2,1: PEN #2,0: CLS #2 

20^4n RESTORE 20310: ¥=180 

£gJ5 ^Si.S^ W,3.frint ih.left 

5o2tVfLOT 398, Y,i: PRINT #1 , MID* <N*, 2,LE 

N ( M* ) ) ; 

20280 Y=Y-16 

20290 NEXT N 

-70300 PRINT CHR* (237 ; CHR* Ml|< RETURN 

20310 DATA Borrar , Tomar, Editor, Numeral R 

ef le jo, Verti cal _ i 

20320 DATA Hon ^ntal , Interoambi ar, Const 

ruir, Save* Load ,_«. T »™ <?t? ^s 

20980 REM <« INIC1ALI7.AR VARIABLES >>> 

21000 DIM F(S) 
21010 DIM D<32,8> 
21050 SYMBOL AFTER 223 
21060 ADDR=4377i 
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21070 FOR N=l TO 32 

21080 FOR M=l TO B 

21070 D(N,M)=PEEMADDR) 

21100 ADDR=ADDR+1 

21110 NEXT M 

21120 NEXT N 

21130 ADDR=34999:GQSUB 29500 

21250 RETURN 

21980 REM <«. DIBUJAR CARACTER >>> 

22000 PRINT CHR*<23) pCHR*U>5 

22040 Y=382 

22050 FOR N=l TO 8 

22070 X=D<CHAR,N> : GOSU& 23000 

22080 PLOT 3B2,Y,3:PRINT ttl,X*;Xl 

22090 Y=Y-16 

22100 NEXT N 

22110 RETURN 

229S0 REM <<<«< X a X* >>>>» 

23000 X*=BIN*{X.e> 

23040 FDR M=l TO S 

23050 IF MID*(X*,M, Us'-O" THEN MID*<X* f M 

,1)=" " 

23060 IF MID*(X*,M P 1?="1" THEN M1D*<X*,M 

r 1)=CHR* (143> 

23070 NEXT M 

230S0 RETURN 

23980 REM <<<<« INPUT CHAR »»>> 

24000 PRINT *2. "CARACTER 7 ": PRINT #2 

24010 N*= l,,, 

24040 FOR N=I TO 3 

24050 B*=INK£YS: IF HHK'*©* OR B*> n, 9 ,r THEN 

GOTO 24050 
24060 PRINT #2.B$: : N*-N*+BS 
24070 NEXT N 
24075 CLS #2 
240B0 CHAR=VAL(N$) 
24085 IF CHAR<224 OR CHAR>255 THEN GOTO 

24000 
24090 CHAR=CHAR~223 
24100 RETURN 

249B0 REN <<<<< DIBUJAR CELDILLA >>>>> 
25000 PRINT CHR5C23>;CHR*<3> : :X*=382:Y=3S 



25010 FOR N=l TO 9: PLOT X.Y,1:DRAW X+127 
*Y 
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25020 Y=Y-16 

25030 NEXT N 

25040 Y=~82 

25050 FOR N=l TO 9: PLOT X.Y.LiDRAW X , . | 

25 

ZEOiO >t=X+iS 

25070 NEXT N 

25080 RETURN 

25980 REM ^<<<< CARACTERES 

26000 PRINT CHR* C23> *CHR* ( 1 i x : Y*358l PLOT 

0,0,3 
26040 FOR N=l TD 16 
26050 MOVE X,Y 

2606O PRINT til," " j CHR* (223+N) 3 J MOVE X + l 
80, Y: PRINT ttl , " " ;CHR* (239+N) ; 
26070 Y=Y-22 
26080 NEXT N 
26090 RETURN 

26980 REM << DE MATRI7. A CARACTERES 
27000 ADDR^43776 

27040 FOR N=l TO 32: FOR M=l TQ 8 
27050 POKE ADDR,D<N,M) 
27060 ADDR^ADDR+1 
27070 NEXT MjNEXT N 
27060 RETURN 

27980 REM <<<<< X* a X »>» 
2B000 RESTORE 2809OiX«O 
2S04O FOP. M-l TO B 
29050 READ Ys W$-MIDs ( &*., M, 1) 
23060 IF W*<>" " THEN X=X+Y 
23070 NEXT Ml 
28080 RETURN 

28090 DATA 128,64,32, 16,3.4,2. 1 
2S9S0 ■>>>>>'>>>! NKEY > » »» » >» 

29000 1 e=0 ; r i =0 1 up=0 j do=0 : * i **0j en & s 0=0 
29010 F*=INKEY*:IF R*="" THEN GOTO 29010 



29020 IF ASC<P4)-B DR ABC < PS) -242 THEN 1 

9=1 

29030 IF ASC<Ff>=9 OR ASC(P*>=243 THEN r 

i = l 

29040 IF ASC<P*)=11 OR ASC(PS>=240 THEN 

Up=l 

29050 IF ASC<P*)=10 OR ASC<P* 1=241 THEN 

do=l 
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29060 IF ABC<P*>*=BS OR ASCCP*)*224 THEN 

4 1 = 1 

29O70 IF ASCIP*>=13 THEN q = i 

29OB0 IF AS2<P*>=2:2 THEN e;< = i 

29090 RETURN 

29480 ' >»>:>PQKE INKEYS>>>>>>»» 

29500 e=INT(addr/256J : b=addr-25£*c 

29510 RESTORE 29580 

29520 FOR n^addr TO sddr+lS 

29530 READ a: IF a=?99 THEN a=b 

29540 IF a-99S THEN a-c 

29550 POKE n.a 

29560 NEXT n 

29570 RETURN 

29580 DATA . 62 , , 50 , 999. ?9Q , 205 „ 2? 

29590 DATA 187-206,50.999,998.201 
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La pa/eta fosforescente 

Su Amstrad le ofrect; nn lienzo para que pints bus obras de art©, 
aurtque posiblBmente nunc a lleguen a venders© a un precio da mi- 
les de litres. 

En primer lugar. el programa le pide que selcccione un motto 
(0, 1 6 2) y colores para el borde (0-2G), para el papel (0-15) y para 
la tinta (1-15). Dispone de una lista con los numaros de los cold- 
res en Is gula de referenda y en el apendice 5 de este libro. El 
programa incluye una serie de colores para dibujar. (Gambia los 
"data" de las lineas 201 10 y 20120 para alterar el repertorio). A 
continuaci6n se le pide que titule su obra pare grabarlo pos- 
ter iormente. 

Tiene una ultima opcion, se trata de una«ventana* de informs- 
cidn en pantalla. En ella tendrs en Gada insiante las coordenadas 
(x,y) del pincel y le podran servir para disenar secuencias de di- 
bujos para incorporates en distintos programas. As! fue coma <i> 
bujamos el mapa de Gran Bretaria del capftulo anterior. 
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La ventana aparece en ie parte superior o inferior de la pa ma- 
ils v se despl&xa e^ case de qu* irtferrte ser *ii\JBdKla» jjot el ptn- 
eel, pera no borra el dibujo que est a bajo el la. 

Un iapiz indica ddnde se dibujara la lines. Se controfa con la 
ffecha o con el ^joystick*. Con "COPY" se pasa de Japiz a goma de 
Dorrar y con ella se borra ran lodas las Ifneas sobre las cuales pase. 
Si vuelve a pulsar "COPY" ■iparecera' una cruz. Esto signified que 
la est 3 permftido mover el cursor sin que dibuje {lapi* levantado). 
Pulsando "COPV" de nuevo. volvera al modo normal. El cursor 
pasa de un Modo a otro pulsando I o alter n at ivam ante. 

Puede utilizr otro sfstema; al "Auto Tine". Con el cursor en "mo- 
ver" coldquelo donde quiera empezar la linea. Pulsando la barra 
espaciadora al ordenador cargar£ esa posicidn. iVTueva la cruz a la 
gegunda posicidn y vuelva a teclear un espacio, Inmediatamente 
se dibujara una recta entre los dos puntos. 

Con "Enter" puede cambiar el color da la tinta en cuafquier mo- 
memo. El cursor le mostrara el color q ie esta" utilizando cada vez. 

Con las teclas "Shifi+S" puede grajar el dibujo que tiene en 
pantalla (acua'rdese de tener pulsado F?tC-PLAY). Con "Shift+L" y 
el botdn de la grabadora en "PLAY" podra carg$r un dibujo en el 
ordenador. 

A pesar de que puede llevar un tiempo dibujar con este siste- 
ma (dependlendodel modo elegido), crear «arte» asi puede ser fran- 
ca me nte diver tido. 

1 REM »»»>; EDITOR DE PANTALLA '.'«.« 

2 REM 

500 SYMBOL 240.24O.20O<164, 146, 79*47. 30, 

B 

510 SYMBOL 241,240,226,226,152,24,36,65, 

1 

520 SYMBOL 242. 240, 184, 220. 2"S. i 19, 56, 27 

k 10 

600 MEMORY 23c9° 

610 5PEED WRITE 1 

1000 EDSUB 21000 

1010 X=0rV=3 ot ?:DR=l:Ll^0 

1020 HD=4; L .'D=2:TAG #c 

1030 IR M=l THEM HD=2 

1040 IF M=2 THEN HD=1 

1100 GOSUB 2B0O0 
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1140 IF Y<50 THEM P0=395 ELBE FG*20 

i 1 50 Wi - " X u *-STR* tX V+- 1 ' Y " +STR* tY> *" T IMTfi 

"+STR*{RE> 

11SS PRINT CHR*<23) ;CHR*(1); 

1150 IF INF=1 THEN MOVE C\POi PRINT #3.W* 



1 200 
1210 

1220 
1230 
lft40 
1250 
1260 
1 370 
13E0 

1400 
1440 

1450 



PRINT CHR? < 23) i CHR* •! I > : 

PLOT X.Y,PE 

PRINT tf 2 , CHRS ( 240+DR ) : 

PRINT 2HR*(.23) :CHR* <DR)? 

IF DR-2 THEN KQ=FAP ELSE KO*RE 

PLOT X,Y,PE 

PLOT X.V.KD 

PR I NT CHR* ( 23 J i CHR* it J ; 

PLOT X,Y,FE 

PRINT K2.CHR* < 240+DR ) ( 

C R1NT CHR£<23> jCHRS(QR> : 

PRINT CHR* 123) fCHRt C 1) : 

IF INF-i THEN MOVE 0,PO: PRINT f*3, 



Vit 



1460 

1 -1 70 

1480 

1200 

179B0 

10000 

ISO 10 

13020 

1S4B0 

1 2500 

1R510 

16520 

20O00 

20010 
20020 
20030 
20040 
20050 
£0,0.60 
20070 
20080 
20090 
20100 
20110 



IF BAV-1 THEN GOSUB 19000 
IF L0=1 THEN GOSUB 13500 
IF LI-1 THEN GOBUB 23000 
GOTO 1100 

REM «« SAVE >i>» 

CALL 23700 

SAVE N* , E , 5.-5AE0, «<3FFF 

RETURN 

REM :<. :■< load :■; 

LDAD " ■ " 

CALL 23715 

RETURN 

REM «« iNtClALIZACION »» 

NODE 1: RARER 0:PEN 1 



I NPUT 
IF M=0 
IF M-i 
IF M=2 



;M 



CO- 15 j GOTO 20050 
C0-7:G0TC 200 tO 
CD-I; GOTO 20050 



MODD 
THEN 

THEN 

THEr- 
GOTO 20010 
REBTDRE 20110 
FDR N=0 TO CO 
READ A 
INK M,A 
NEXT N 
DATA 0, IS, 24,2,5, 20, IS, 3 
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13. lj,5 



20120 DATA 2,21.26.8. 

20130 CLS 

20140 INPUT "fiORDE ■ i BO 

20150 IF BEXO OR BD>2? THEM GOTO 20130 

20160 BORDER BO 

20170 CLS 

20130 INPUT "PAPEL ":FAP 

201 90 IF PAP-!0 OR PAPM5 THEN GOTO 2<W 

20200 PAPER PAP 

20210 CLS 

20220 INPUT "TINTA INICIAL " • PE 

20230 IF PE<0 DP PE>CD THEN GOTO 20210 

20240 PEN PE 

20250 CLS 

20260 INPUT "NDMERE PARA 'SAVE' " : IMS 
20270 N* = " I ,, +Nt 
20250 CLS 

20290 INPUT "VENTANA DE DATOG «*M 
20300 INF<=0 

20310 IP LEFT$(A*, n«"S" OR LE^T* (A* 1> 
" B" THEN INF=1 ' »»***,*? 

20340 MODE M 
RETURN 

REM -.:-:<< ENFEZAR >>>> 
EQSUB 30000 

ADDR=2372?:GDSUB 2°500 
GOSUB 20000 
TAG tt2 
RETURN 

SOUND 1.200,10,15 
IF FLAG-1 THEN GQTO 23050 
FLAG-1:X1=X:Y1^V:DR-1 
TD=HDi HD=HD*3: 0D=6 
RETURN 

FLAG=0 : HD=TD: VD=2 
PRINT CHR4C23MCHRSK0 j 
PLOT X.Y.PEsDRAW K1.Y1 
PRINT CHR^(23i iCHR*(l); 
RETURN 

REM ■;<<■: MOVIMIENTQ >>>> 
GOSUB 2=0005 LI=0iSAV=O:LQ-0 
IF LE-1 AND X>0 THEM X=X^HD 
IP RI=1 AMD X<639 THEN X=X+HD 
IF UP=1 AMD Y<399 THEN Y-V+vV> ' 
IF DG=-1 AND V>0 THEN V^Y-VD 



20350 

20930 

21000 

21010 

21020 

21030 

21100 

23000 

23010 

23020 

23030 

23040 

23050 

230t0 

23070 

23080 

23090 

27990 

23000 

2S010 

28020 

28030 

29040 



28050 
DR=0 

28060 

28070 

PE*0 

22080 

28090 

3S100 

2B110 

28120 

30000 
30010 
30020 
30030 
30040 
30050 
30060 
30070 
30080 
30090 
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IF Ft«i THEN DR=DR+1:IF DP*3 THEM 

PRINT CHR*<:23J ;CHR* (DR>; 

IF 0=1 THEN PE-PE+3:IF PE-lf. THEN 



IF EX=1 THEN LI=1 

IF A=67 THEN CLS 

IF A=83 THEN EAY=1 

IF A=7i THEN L0=1 

RETURN 

REM :<« POKE B/MDVE »» 

RESTORE 30060 

FDR N=23700 TO 23726 

READ A 

POKE N« A 

NEXT N 

RETURN 

DATA 33,0,192,17.224,106 

DATA 1 ,255. 63.237* 176.201 .0.0,0 

DATA 33,224,106,17,0,192 

DATA 1,255,63.237, 176, 201 



Ahara una con 'MERGE'' la subrutina de 

*&rrtracia de carac teres' . 
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Monitor 




Citugm en to Ft. A.M. 

Esta utrNdad le permitira meterse de lleno en la R.A M e invest*- 
gaila a fondo. Pueden analizarse las rutinas en cddigo maquina re- 
sidents en ROM. o la estructura de cualquiar programa en 
RAM. Los contemns de fa memoria pueden aer rnodificados, car- 
gados o grabados. 



Rfisumcn da instrucciones 

(Vf Visualiiar la memoria. El ordenador le pedird las povido- 
nes de la celda inicial y final a anali*ar jen decimal). 

Aparecerd en pantafla ©J contenido de sus direcciones de me- 
moria en bloques dedie*. Con la tecla "Espacio" pasa al siguiente 
blcque. Se pueden feer fas zonas de texro en la taWa de caracte- 
res ASCII. 

<C) Compruebe fa suma, Pide las direcciones miciaf y finaf y ha- 
lla et total de los valoras de esas posiciones en decmal (dueccio- 
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nes de comienzo y final Incluidasl. Eh muy util para comprobar sk 
estd bien imroducido un listado que incluya un "chequeo" por 
suma al final. 

(M} Modiftca memoria. De nuevo se le piden las direcciones ini- 
cial y final. Aparece en pantalfa el conienido de la primera celda. 
Si pulsa "Enter" lo deja tal cual, si pufsa un niimero y "Enler" 
este sera el nuevo valor da esa posicidn. Si teclea un numero no 
admisible la mequina se lo advertira y no se ptoducira ningun 
cam bio. 

A continued tin se visualiza el contenido de la siguiente posi- 
cion de memoria. |Tenga cjidado, algunos cambios pueden lener 
resultados catastroficos! 

(S) Grabar. Le pide las direcciones inicial y final y el nombre 
del f ichero. Pulse "Enter" para empezar a grabar y recuerde, "REC- 
PLAY" tiene que estar pulsado 

(L) Cargar, Pulsando "L" a continuacior da "PLAY" cargard en 
el ordenador el primer fie hero que encuentre. 

(0| Satir, Con "Shift + Q" se puede salir an cgalquier memento 
de cualquier opcion 

1 RE; I MONITOR >>» 

2 REM 

500 MEMORY 3500 

510 SPEED WRITE 1 

1000 SOSUB 20000 

1500 LOCATE #1.1,1:PRINT #L "PULSE SO OP 

cion ..." 

i 5 i A»- 1 NKEYS : A*=UFFERS ( A* J 

A 520 IP A*»"V" THEN B05UB 21000 

1530 IF A*=*H* THEN G05UB 22000 

:540 IP Aft^'C" THEN 60SUB 23000 

1550 IF A$=*"5" THEN EOSUB 2 4000 

1560 GOTO 1500 

19980 REM ''■:'. PANTALLA »» 

2000"' INK O.OiINK 1.26: INK 2. 18* INK 3.2 

20010 MODE I 

20020 WINDOW #1,2,39,4.20 

20070 PAPER "jPEN 2: BORDER 0:CLS 

20040 PAPER .#1.0: FEN *H.liCLS til 

20050 PRINT " MONITOR DE COD I GO M 

AQLilNA" 
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20060 PRINT » ., 



=0070 LOCATE 2.22-RINT "(V>ER MEM0R1A" 
ORIA" U3CATE -' 24:F " R ^ T "1M)0DIFICAR MEM 
2009O LOCATE 23. 22 t PRINT "fCJDMPROBAR SU 

20100 LOCATE 23.24:PRINT " (S) AVE/LOAD" 
20200 RETURN HU 

20=30 REM ;>:««< ijgft »»v 
21000 GOSUS 26000 
21070 CLS »1 

21080 PRINT #1 H ' LOCAL I Z AC ION (HEX) VA 

LOR (HEX 5 i 



21090 FOR N«4 TO 13 

21100 LOCATE #l . : , Ni PRINT #1 , STA 

21 110 LOCATE #1. 10. N: PRINT *tl , " ( « : HEX* (S 

212 I-2£ ATE #1 ' 24 * N ^RINT #1.PEEK(STA) 
21130 LOCATE #1 . 31 , N: PRINT #1. " ("jHEyJMP 
EEK(STA)) ; '"• ■ 

pii = -V L °SS TE ^^.NiPRINT #l,CHR»(i) !C H 
R*tl°iEEK(STA) ) 5 

21145 IF At-"Q" THEN GOTO 22230 

1^00° STA " STA+ltIF STA=PIN-H THEN GOTO 2 

21160 NEXT N 

21170 AS-INKEY* 

21175 IF AS="Q" THEN GOTO 21 2^0 

21 ISO TF AS<>" >. THEN GOTO 211-0 

21190 GOTO 21070 

21200 A*=INKEY* 

21210 IF A*:>" " THEN GOTO 21200 

21220 CLS #1 , RETURN 

21930 REN -•■<■, MQDIFICAR ;•,»>. 

22000 BD5UB 26000 

22070 CLS #1 

220BO PRINT tfl . "LOCALIZACION <HEX> VA 
LOR — _ _ 



22090 FOR N=4 TO 13 

22100 LOCATE #1,1.N: PRINT #1,STA 

TA)!-)- DCATE #1 ' 10 * l>j!p RlNT #l^<" lH EX*(B 
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22120 LOCATE #1 , II , N: PRINT ttl,PEEMSTA> 

22130 LOCATE *1,31.N 

22140 A*=<INKEY*:IF At-"" THEM GOTO 22140 
22145 IF M="Q" THEN GQTU 22230 
22150 IF A*< 1 '0" OR A*>"9" THEN GDTD 2216 
O 

22155 GOSUB 22500 

221:60 BTA=STA+iiiF ETA=FIN+1 THEN 22210 
22170 NEXT N 
22180 A*=INKEY* 

22190 IF A$<>" " THEN GOTO 22180 
22200 GOTO 22070 
22210 At-lNKEYt 

22220 IF A*<>" " THEN GOTO 22210 
22230 CLS ftl : RETURN 

22490 REN * * * MDDIFICACIONEE li < 
22500 NS-""jPRlNT #1 , AS; : N*=N* +A* 
22510 EOSUB 22600 

22520 IF fi«*CHR*U3) THEN GOTO 22^00 
22530 GOTO 22510 
22600 At-INKEY* 

22610 IF AS-"" THEN GOTO 22600 
22620 IF (At^'O" OR Af>"9") AND AS < >CHR* 
(13) THEN GOTO 22600 
22630 IF AS-2HRSU3) THEN RETURN 
22640 N«-lM«+A*iPRINT #1,A£; 
22650 RETURN 

22700 A-VAL(N*):IF A<0 OR A>255 THEN SOU 
ND 2, 300, 25. 15: RETURN 
227*10 POKE CSTA) .A 

22720 LOCATE #1 . 24 , Ni PRINT tH.ftf" 
22730 RETURN 

22980 REM :<•:< COHPRO&AR SUMA >»> 
23000 6QSUB 26000 
23010 T0T=6 

23020 FOR N=STA TO FIN 
23030 LOCATE #1,10,10 
23040 PRINT #1„N 
23050 TOT-TOT +FEEK(N> 
23060 NEXT N 
23070 SOUND 1,300,25,15 
23030 BOUND 1,200.25,15 
23090 SOUND 1,100.25.15 
23120 LOCATE #1.10,12 
23130 PRrNT ttl, "COMPROBACION-'^TOT^ 
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23140 

23150 
23160 
23170 
23980 
24000 
24010 
24020 
24030 
24040 
24050 
24070 
24080 
24090 
" 5 N* 

24100 N*="< 



THEN GOTO 23140 



A« = IWK'EV* 
IF A*<>" ' 
CLS #1 
RETURN 

REM <««: SAVE/LOAD >»» 
PRINT #1," . (S>AVE (LJOAD 7" 
A*=INKEVS: A*=UPPEP* (A*) 
IF A*="S" THEN GOTO 24050 
rp Af="L" THEN GOTO 24500 
GOTO 24010 
CLS 1*1 
SQSUB 26000 

IF ~TA<S0OO THEN GOTO 24050 
L5 #1: INPUT ftl,"NGMBRE TEL F I CHER 



24110 

24 1 20 

24130 

24500 

24510 

"sN* 

24520 N* 

24530 

24540 

24550 

259S0 

26000 

26010 

26020 

26030 
26040 
26050 
26060 
26070 
260B0 
26090 
26100 
26110 
26150 
299B0 
30000 
30010 
30020 
C13) 



^NS 



SAVE NS.B,3TA,PIN-STA+1 
CLS #1 

RETURN 
CLS #1 

CLS #1: INPUT #1, "NOMBRE DEL 



■I CHER 



>»» 



! "+N* 
LOAD N* 
CLS #1 
RETURN 

REM <<«< INPUT 
CLS #1 

PRINT #1."INICID : "; 
GOSUB 30000 

IF ADDR<0 OR ADDR>65535 THEN 260OO 
STA^ADDR 

SOUND 2,300,25,15 

CLS #1: PRINT #1." PINAL : '■ 

SOSUB 30000 

IF ADDRCO OR ADDR>65535 THEN 26060 
FIN=ADDR ^fi^ftU 

CLS #1 

IF STA>^FIN THEN 50TD 26000 

RETURN 

REM <«« INPUT ADDR »>\> 

At^INKEV* 

TF Cft*<«0« OR A*>"9") AND A*< >CHR* 
AND A*OCHR*U27) THEN GOTO 30010 
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30025 IF A*»CHRSU27> AND LENCN*>^1 THEN 

GOTO 30010 
30030 IF A**=CHR*U27> THEN N*=LEFT* <N*, L 
EN <Nt) -l)i GOTO 30050 
30040 NS^N*-*-A* 

30050 SOUND 2, 150, 5, 15i LOCATE #1,10,1 
30060 PRINT ttl.NCs" " 

30076 IF A*=CHR«'13) THEN GOTO 30090 
30080 GOTO 30010 
30090 ADDR=VAL(N*> 
30100 RETURN 



Consejos finales 



Al escribir este fibre se procure conseguir un nfvel de calidad an 
los juegos que estuviera por encrma de la media. 

Naturalise, esto requiere que (OB programas sean mas lar- 
gos v que el cuidedo al ischurias sea mayor Llegar a un momento 

T T T?V? t ndf * qu * depUrflf sus P rQ 9^mas y ser<5 enlaces 
cuando habrd flegado su oporiunidad de comprendar cdmo v por 
que funcionan ios prog ram as. 

Para ayudarfe en esta tarea hemes confeccionado esta oula de 
«depuraodn». 



GeneraJtdades 

rn J rnh P ™ Ure tener a au lad0 Centres teclea a alguien que vaya 
comprobando a su vez y en voz alta las entradas 

2. Si esta irabajando con pantalla de 40 columnar, el listado 
ha de coi nadir Imea por linea con ef de la pantalla. 

3 No confunda (a I con el 1 y vicevarsa, 

4. No confunda "a" mintiscula con "A" mayuscuia 

5. Este* al tanto de ";" en fugar de ':". 

6 Deje los espacios justos y compruebeJo con las linees su- 
perior e infer For 

7. Compruebe dos veces los numeros cfe linea. No confunda 
uri^numero contenido en una linea con un numero de ce-mienzo de 

S Fijese en los DATA Efl facii saltarse algunos niimeros 
Luente cuantas comas hay y contrastreto con el listado 

9. No se olvida de fas com i lias. 

10. ^Esta seguro de que hay un error? Relea las instrucciones 
de juego. La mayorfa de las respuestas tienen que ir seguidas de 
la lecla "Enter". 



Consejos ttmtfas 1 97 
Problems* especificoi 

1 . Con a I fin de ahorrar espacio y tiempo. se ha utilized© con 
frecuencia el comando MERGE" (para unir las rutinas de unos 
program as con otros). Familiarfcese con esta tecnica comenzando 
con un programa que sea sancillo. Aunque se presenter^ proble- 
mas en la praetica de esta tecnica, considerando Jos resuliados he- 
bra vah do la pena. 

2. Una de las mayores fuentes de problemas es el iniroducir 
entradas ©rrdneas Por ejemplo, puede estropear un programa al 
tectear un niimero negative cuando sa le pide otra cosa. La ma- 
yoria de estos pequenos errores pueden preverse en at programa 
pero a cosia de que sean mucho mas largos sin demasiada justi- 
ficacidn. Al eseribir estos programas se dio por sentado que el o 
(os jugadores no iban a querer destruir e! programa. As! pues. sdlo 
esten protegidos contra tontos de tarcer grade. St sus denodados 
esfuerzos estan al alcance de tontos de primera clase debido a un 
entorno hosiil. entonces ociipese personalmente de tomar las me- 
didas de seguridad. 

3. Los programas pueden utilizarse en pamalla monocroma. 
Cambie los co lores si io desea una vez que hay a grabado el pro- 
grama. El programa Mastermicro puede utilizar simbolos an vez 
de colores cuando la pantalla sea monocroma. 

4. Un buen ejercicio consiste en cargar los programas nada 
mas enchufar el ordenador. Con ello se evitaran problemas sr en 
el programa anterior se produjo algun desajuste en el interior del 
ordenador. 

5. Desgraciadamente la funcidn "Random" resulta ser menos 
a I co tori a de Io de SB able. Hemes tratado de minimis el problems 
pero, a pesar de eiio. a veces, encontrard secuencias que se 
rep it en, 



Depurando 

Si ninguno de los consejos anteriores resuelvan el probtema, an- 
tonces remanguese y pruebe con estos de propina. 

1 , Si apareca un mensaje de error en una linea y al examiner- 
la parece ester bien. recuerde que el error puede estar en la linea 
que pasa informacidn a esa linea y compruebe las tineas re- 
lac iona das. 
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2. A errores como "Out of range", "Improper argument", se 
les puede seguir la pista como se ha indicado aniariormente. Le 
ayudara teclear "PRINT A' - o cualqutera que see la variable uttlj- 
zada en csa linea, Esio deberfa aclararle el problema. 

3. jParies que sb ha olvidado tedeart Con Ja funcion TRQN se 
puede seguir el orden en que se ejecutan las ffnees del programs, 
delatando las subrutinas "trav'esas" o algun problema parse ido, 



4, Trabaje rnetddicameme. Vaya parte por parte. Pare ef pro- 
grama en ciertos puntos con "END" o "STOP", o saque a pantalla 
los valores de ciertas variables con "PRINT" en la zona donde sos- 
peche que se encuentra el error. 



APENDICES 



5. Inutilice partes del programa cofocandt? un "REM" delante 
de ciertas Ifneas. 

6. Vuelva a ted ear las line as con prob lamas. Durante la con- 
feed 6n del librOr afounos errorss del lipo "Out of memory ", solo 
pudieron ser resueltos teeleando de nuevo una misma Jfnea {apa- 
renternente pedecta). 



7, UtUice fas funciones "On error", 
el manual de referenda. 



1 ErJ" y "Err" como indica 



8. Vayase a fa cama V duerma un poco. A veces lo que hoy no 
marcha, fundona a I dia siguiente. 



Apendice 1 : Juogo completo da cstbc teres del Amstrad 
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Apandica 2: Cuarjrlcula para la definlcldn da caracterea 




DEFINICION DE CARACTERES 
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Puede ser uiil fotocopiar esta pdgina para uso propio. 
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ApAndicQ 3: Hoja de paninfle 



MODE a 
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' • » ■' ^ i) u a * n .1 1, a, 
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CODIGO DE COLORES 



PEN = 
1 = 



6 = 

7 = 

8 = 

10 = 



5 = 



"". 



*i » I* n ii n n n » 



-h 



i-l- 



11 = 

12 = 

13 = 

14 = 

15 = 



Puede serte Otil fotocopiar asta pagina para uso propio. 
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MODE 1 40 COLUMNAS * 25 FILAS 4 COLORES 
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ffl 



CODIGO DE COLORES 

PEN e = 

1 = 



2 = 

3 = 






Puede »H» util fotocopiar «t» pagina para uso propio. 
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MODE 2 BO COLUMNAS x 25 FILAS 2 COLORES 




CODIGO DE COLORES 

PEN 1 = PEN 2 e 






Puede JserJe util fotocopiar esta pig in a para uso propio. 



Apendice 4: Maps dm mamoria del AmsWad 



&10WW 



&CW0 



&fit(W 



&40W9 



&<M4fl 



& 



VIDEO 
RAM 



ROM 
SUPERIOR 



PILA/PUNTEROS 



M6MORIA DEL USUARIO 



MEMORIADELUSUARIO 



\ROM 
INFERIOR 



RESTARTS 



ApGndica 5: Tobta de coloraa del Amstrad 



COLOR 

NEGRO 

1 AZUL 

2 AZUL BRILLANTE 

3 ROJO 

4 GRANATE 

6 MALVA 

G ROJO BRILLANTE 

7 PURPURA 

8 GRANATE BRILLANTE 

9 VEROE 

10 AZUL MARINO 

11 AZUL CELESTE 

12 AMARILLO 

13 BLANCO 



14 AZUL PALIDO 

15 N ARAM J A 
IS ROSA 

17 GRANATE PALIDO 

18 VERDE BRILLANTE 
13 VERDE MARINO 

20 AZUL MARINO 
BRILLANTE 

21 VERDE LrMON 

22 VEROE PALIDO 

23 AZUL MARINO 
PALIDO 

24 AMARILLO BRILLANTE 
26 AMARILLO PAUDO 

26 BLANCO BRILLANTE 



A(n>iiilii:ii 6: Comprobador Rapido do Stalaxta 

El manual del Amstrad esld dividido en seccrones, cada una ira- 
tando diloremes partes da la smtaxis do las instrucc tones Basic. 
Sin embargo, a veces uno pueds hacerse una idea de qua mstruc- 
ci6n necesita mirando esta llsia. Las mstruccionas astan aorupa- 
das segun ciertas caracterlsticas. Pot ejemplo, para saber como 
operan las instrucciones de tipo "soriido*, puede buscaHas en esta 
lista y luego dingirse al manual de Amstrad. 



MATEMATICAS 


DRAWR 


POKE 


ABS 


MOVE 


REMAIN 


AND 


MOVER 


RETURN 


ATN 


ORIGIN 


SPEEDJNK 


CINT 


PLOT 


SPEEDWHITE 


COS 


PLOTR 


STEP 


CREAL 


TAG 


STOP 


DEF 


TAG OFF 


THEN 


DEG 


TEST 


TIME 


EXP 


TESTR 


TO 


FIX 




WAIT 


FN 


CONTROL 


WEND 


INT 


AFTER 


WHILE 


LOG 


CALL 


WIDTH 


LOG 10 


Dl 




MAX 


El 


SQNIDO 


IN 


ELSE 


ENT 


MOD 


END 


ENV 


NOT 


ERROR 


ON SO 


%" 


EVERY 


RELEASE 


FOR 


SOUND 


RAD 


GOSUB 


so 


RANDOMIZE 


GOTO 




RND 


IF 


PROGRAMACION 


ROUND 


INKEY 


AUTO 


SGN 


INKEYS 


CLEAR 


SIN 


IMP 


CONT 


SQR 


JOY 


DATA 


TAN 


LINE INPUT 


DELETE 


UNT 


NEXT 


DEFtNT 


XDR 


ON 


DEFREAL 




ON BREAK 


DEFSTR 


GRAFICOS 


ON ERROR GOTO 


DIM 


CLG 


OUT 


EDIT 


DRAW 


PEEK 


ERASE 
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ERL 


CHAIN 


STRINS 


ERR 


CLOSEIN 


UPPER* 


FRE 


CLOSEOUT 


VAL 


HJMEM 


EOF 




(NPUT 


LOAD 


PANTALLA 


KEY 


MERGE 


BORDER 


KEYDEF " 


OPEN IN 


CLS 


LET 


OPENQUT 


INK 


LIST 


SAVE 


LOCATE 


MEMORY 




MODE 


NEW 


CADENAS 


PAPER 


READ 


ASC 


PEN 


REM 


BINS 


POS 


re'num 


CHRS 


PRINT 


RESTORE 


DEFSTR 


SPC 


RESUME 


H£X* 


TAB 


RUN 


INSTR 


USING 


SYMBOL 


LEFTS 


VPOS 


SYMBOL AFTER 


LEW 


WINDOW 


TFOFF 


LOWERS 


WINDOW SWAP 


TRON 


MIDS 


XPOS 




RIGHTS 


YPOS 


FICHEROS 


SPACES 


ZONE 


CAT 


STRS 








